BURROUGHS HALL OF PROGRAMS - PROGRAM PROFILE 



Descriptive Title of Main Application 

lAooo accounts payable systems 

Application Code Q26 
Describe Type of Business 

General 

Other Comments 

HOME OFFICE STANDARD PACKAGE 



Filing Guide 5-00-L4311-02 
Style of Machine L^311— 609 



Date Installed 
Adjuncts pp £ 
Special Features jj /j± 

. 2-1300-001-00 

V Firmware I D 2-1070-019-00 CDV/CDC Add-or 



Descriptive Title of Application Programs in this Installation. Major Application First. No. of Instructions. Activity & Volume. 
Accounts Payable - Voucher Build Up or Vendor Record Posting and 

Occasional Check Writing 

- Direct Pay Vouchering or Vendor Record Posting and 
Check Writing 

- Automatic Summary Totals W/Expense Distribution 
Record Update 

- Journal Entry & General Ledger Posting 

- Check Writing Only 



1178 Instructions 



A. Significant advantages to the user. - 

Complete A/P System with options for Build-Up, Direct Pay, or a combina- 
tion. 

All routines are resident in Mainline Program. 

Journalizing of invoices and distribution to account numbers in memory 
enables the operator to arrive at a zero proof condition prior to 
handling of the voucher. Voucher or Vendor record update is then auto- 
matic from Systems Mem ory. 

B. Description of the significant features of the System 

Invoices are posted to the Purchase Journal with the ability to store up 
to 10 invoice amounts and alpha reference numbers for subsequent auto- 
matic posting to the apron portion of the voucher check or to the Vendor 
Record. A reverse entry routine is provided to automatically reverse 
the last invoice amount and reference number on the journal and to decre- 
ment the tank by "1". When the invoice prints on the voucher, only the 
correct amount and reference number will print. 

Account distribution is made to 80 major accounts stored in a look-up 
table. The operator has the option to post directly to any Expense 
Distribution Record account, including those in the table, if it is 
required. 

The program permits occasional checks while posting invoices to either 
Vouchers or Vendor Record. 

Under the Direct Pay and Check Writing Only modes, the operator has the 
option to bypass the vendor record update operation. 

Totals for all operations print only active summary account numbers and 
amounts. Automatic update of these amounts to Expense Distribution is 
also provided. 
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Totals for Accounts Payable Credit (or Debit), Cash. Bank, and Discounts; 
Earned are manually posted to the General Ledger using the Journal 
Entry /Genera 1 Ledger program segment. 

Forms control for the Journal is under program control, providing auto- 
matic advance to the next page as required. If a voucher is being 
posted and the next page situation arises, the system automatically 
opens the handler, advances the journal to the next page, and enables 
a PK which indicates to the operator what has just happened. 
Realignment of the voucher and depression of this PK is the only 
operation allowed. 

:. Description of the significant characteristics of the program. 

1. This program has two tables for build up of 10 invoice amounts 
(10 words) and 10 Alpha invoice numbers (10 words), for automa- 
tic posting to voucher. 

2. 80 Word Table with resident account number (6 digits) the right 
hand 9 digits are used to store amount +-. The account numbers 
are searched out using binary method. Capacity is provided for 
changing these account numbers by a PK selected routine. 

3. Total of stored accounts: only active accounts are totals. Active 
accounts are added to Hash Total. Active accounts are then posted 
to (Data Retrieval) Records and subtracted from Hash Total. Active 
accounts are then posted to (Data Retrieval) Records and subtracted 
from Hash Total to prove all accounts were posted to Records. 

k. Check digit verification and calculation is provided on all listed 
balances and to-date figures. 

5. Operating Instructions are included in the COBOL print-out to 

allow modification to both programs and operating instructions at 
the same time. 

V NOTE: TO OPERATE THIS PROGRAM, YOU MUST HAVE FIRMWARE SET 
2-1300-001-00 AND CHECK DIGIT VERIFY FIRMWARE ADD-ON 
2-1070-019-00 LOADED INTO THE SYSTEM. 



D. The following additional material is available fromSSSSKXK^SSK Literature Distribution: 
Document No. Description 

1051562A System Definition 

1051562B Compiler Listing 

IO51562C Object Program (Available from District) 

1051562D Source Program (Available from District) 

IOI8363 Voucher Check Demonstrating Form 

1051513 General Ledger Demonstrating Form 

1051505 Vendor Record Demonstrating Form 

Vj 1052800 Media for Accounts Payable Demonstration 

V 1053121 Month End Balance Transfer & Report Writing Program 

Profile 



Burroughs Corporation 



"w" 



BUSINESS MACHINES GROUP 



March 22, 1971 



L 4000 ACCOUNTS PAYABLE SYSTEMS 

The new L 4000 Accounts Payable System is a powerful Selling/Demonstrating 
tool providing maximum flexibility and installability for users of the 
L 4000. This system meets most needs for any Accounts Payable system with- 
out modification, enabling you to install the system rapidly and with little 
effort. The program and operating instructions are written in COBOL to 
make minor modifications easy. Some of the features of this powerful 
system are ... 

Voucher Buildup with occasional check writing. 

Vendor Ledger with occasional check writing. 

Direct Pay to Voucher apron or Vendor Ledger. 

Check Writing only for Voucher Buildup or Vendor Ledger. 

AUTOMATIC printing of up to 10 invoices (Reference/Amount) 

on Voucher apron OR Vendor Ledger. 
"High Volume" distribution to 80 Account Numbers. 
Individual Distribution to General Ledger of any Account Number, 

Voucher or Vendor Ledger System. 
Check Digit Verification of account balances. 
Discount Decision - None/Dollar Amount/Percent Amount. 
Automatic Posting of Summary Totals to General Ledger. 
General Ledger Journal Entry program. 
Program Control over pin fed journal. 

Management Reports for both Profit and Loss Statement and Financial Position 
Statement are included as a separate program with this release. As an auto- 
matic by-product of the Month End Balance Transfer routine, these complete, 
flexible reports are easily prepared. With the buffered keyboard of the 
Series L there is no delay in entering data for the next account while a 
detailed report line is printed from memory. 

Attached to this letter are the revised Program Profile for L 4000 Accounts 
Payable Systems (1051562), System Definition for L 4000 Accounts Payable 
Systems (1051562A and PCN 1051562A-001) , L 4000 Accounts Payable Demon- 
strating Media (1052800), Program Profile for L 4000 Month End Balance 
Transfer and Report Writing (1053121), and System Definition for L 4000 
Month End Balance Transfer and Report Writing (1053121A). 

Regular Hall of Programs distribution is being made for Symbolic Listing for 
L 4000 Accounts Payable Systems (1051562B) and Symbolic Listing for L 4000 
Month End Balance Transfer and Report Writing (1053121B). Demonstrating forms 

- Voucher Check (1018363), General Ledger (1051513), Vendor Record (1051505) 

- if not in branch stock can be ordered from Literature Distribution. 

Demonstrate these new programs for additional revenue. Good Selling. 



TO: Managers and Salesmen 

with. Product Responsibility 



C. W. Gardner, Manager 
Sales Development, Group II 
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Other Affected Publications: . 



Supersedes: . 
Description 



Publication 
Change 
Notice 



Publication Titlp>; Accounts Payable System 



Date . March 22, 1971 
Systems Definition 



This PCN amends the operating instructions to include reference 
to the required firmware and CDC/CDV modifier. 

Remove and replace the first page of the Operating Instructions. 



Retain this PCN as a record of the changes made to this document. 



1051562A-001 



Printed in U.S. America 



001600/***************************************************************** 

001700* OPERATING INSTRUCTIONS 

001800*************6**************************************************** 

001900* SYSTEM MUST HAVE FIRMWARE # 2-1300-001-00 AND CDC / CDV ADD 

002000* (IN # 2-1070-019-00 PRIOR TO LOADING PROGRAM, 

002100****************************************************************** 

002200* INITIALIZE 

002300****************************************************************** 

002400* 

002500* 1. ALIGN FORM TO LINE 3. 

002600* 14 7/8 CARBON-FACED JOURNAL* RIGHT EDGE AT 000 

002700* STYLE 3 FRONT GUIDE LEFT AT SCALE 003 

002800* STYLE 3 FRONT GUIDE RIGHT AT SCALE 088 

002900* STYLE 1 FRONT GUIDE LEFT AT SCALE 156 

003000* STYLE 1 FRONT GUIDE RIGHT AT SCALE 256 

003100* LOWER PRESSURE ROLLS ENGAGED 

003200* 

003300* 2. DEPRESS PK1 TO START-— THE FOLLOWING PK'S ARE LIT 

003400* PK5 - DIRECT PAY 

003500* PK 7 - JOURNAL ENTRIES 

003600* PK 8 - CHANGE ACCOUNT NUMBERS 

003700* PK 14 - CHECK WRITING ONLY 

003800* PK 17 - INITIAL INSTALLATION LEDGER HEADUP 

003900* PK 19 - START A/P 

004000* PK 20 - CLEAR TOTALS 

004100* PK 24 - A/P TOTALS 

004200* OCK 1 - LOAD DATE AND 1ST CHECKNUMBER 

004300* 

004400****************************************************************** 

004500* D I R E C T P A Y 

004600****************************************************************** 

004700* 

004800* FOLLOW THE PROCEDURE FOR 7L0AD DATE AND 1ST CHECK NUMBER? 

004900* AND THEN FOR 7ACC0UNTS PAYABLE WITH CHECK WRITING?. THE 

005000* EXCEPTIONS ARE NOTED WHERE APPLICABLE, 



I 
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005! 00* 

005200****************************************************************** 

005300* JOURNAL ENTRIES 

005400****************************************************************** 

005500* 

005600* TYPE DATE WITH OCK I ♦ 

005700* 1, TYPE DESCRIPTION WITH 

005800* OCK 1 FOR SINGLE LINE OR 

005900* OCK 2 FOR A SECOND LINE OF TYPING OR 

006000* PK 22 FOR JOURNAL ENTRY TOTALS. 

006100* 2, LIST DISTRIBUTION ACCOUNT NUMBER WITH 

006200* OCl< i FOR NORMAL OPERATION OR 

006300* OCK 3 TO BYPASS SEARCH FOR ACCOUNT NUMBER IN MEMORY OR 

006400* OCK 2 TO TYPE ANOTHER DESCRIPTION* RETURN- 

006500* ING TO STEP 1 ABOVE OR 

006600* PK 3 TO PRINT PROOF FIGURE. 

006700* 3, LIST DISTRIBUTION AMOUNT WITH 

006800* OCK 2 FOR MULTIPLE DISTRIBUTIONS* RETURNING TO STEP 2 

006900* ABOVE 

007000* OCK 1 TO PRINT PROOF FIGURE, 

007100* USE RE KEY FOR CREDIT ENTRIES. 

007200* 4, WHEN PROOF FIGURE IS .00, OPERATION RETURNS TO STEP 1 

007300* ABOVE, OTHERWISE* OPERATION RETURNS TO STEP 2 ABOVE. 

007400* 

007500****************************************************************** 

007600* CHANGE ACCOUNT NUMBERS 

007700****************************************************************** 

007800* 

007900* NOTE--ACCOUNT NUMBERS MUST BE IN ASCENDING ORDER IN 

008000* MEMORY, THE CHART OF ACCOUNT NUMBERS INITIALLY LOADED 

008100* CAN BE FOUND IN THE DATA DIVISION, 

008200* 1. LIST ACCOUNT NUMBER TO BE CHANGED WITH OCK 1, IF THE 

008300* ACCOUNT NUMBER IS NOT IN THE TABLE* AN * WILL PRINT AND 

008400* THE ALARM WILL SOUND. RELIST ACCOUNT NUMBER, 

008500* 2, LIST THE NEW ACCOUNT NUMBER WITH OCK 1, 



ACCOUNTS PAYABLE SYSTEMS 

with 

Burroughs 

SERIES L 4000 



SYSTEM DEFINITION 



RELATED MATERIAL 

LITERATURE IDENTIFICATION NO. 

Symbolic Listing 1051562B 

Demonstrating Media 1052800 

DEMONSTRATING FORMS 

Voucher Check 1018363 

Vendor Record 1051505 

General Ledger 1051513 

PROGRAMS 

Object Program 1051562C 

Source Program 1051562D 
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Programmer: . 
Chart ID: 



Program No. 



Date:. 



Page: 



1 of 1 



Chart Name: 



Program Nnmg' 1 k°°° Accounts Payable Systems 



VOUCHER BUILD UP or VENDOR LEDGER 
WITH OCCASIONAL CHECK WRITING 




/ VENDOR \ > 
\OR VOUCHER l/ 



AUTOMATIC 

UPDATE OF 

VOUCHER APRON 





CHECK WRITING ONLY 
VENDOR OR VOUCHER PLANS 



AUTOMATIC 

POSTING OP 

PAYMENT TO 

VENDOR LEDGER 





DATA DESCRIPTION 

OR 

OPERATION 



Fixed Variable 



FIELD DEFINITION 
INPUT 



Size Min ! MaxINorm 



INPUT SOURCE 

Keyboard 1KB), Specify Media, 

Specify MB. OCK, PK, etc.. only 

if particular one required: 
Punched Card (PC); 
Edge Punched Card IEPCI: 
Punched Tape <PT); 
Striped Ledger (SL), 

Specify Reader; 
Memory (M); Data Com Receive. (R) 



- PROCESSING 



PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 



(•I 



FIELD DEFINITION 
OUTPUT 



Fixed Variable 



Size Min Max Norm 



OUTPUT DETAIL 
Print: Specify Printer and Format 
Console (CP>„ Line Printer (LP); 

Punch: Specify Adjunct, Format, 
Special codes, etc.; 

Striped Ledger: 

Data Com Transmit. IT) 



OK 



Oil 



LOAD BEGINNING CHECK NUMBER 



03C 



TYPE VENDOR NAME 



28 



ADV ANCE TO LINE 3, SET LINE CO UNT 



KB 



KB 



PK FOR TOTALS - SEQ 420 



28 



020 



LIST VENDOR NUMBER 



KB 



STORE. 



CP 



031 
040 



LIST VOUCHER NUMBER 



STORE FOR LATER PRINTOUT 



LIST INVOICE AMOUNT 



STORE TEN INVOICE AMOUNTS AND INVOICE 



CP 



NUMBERS IN MEMORY FOR SUBSEQUENT AUTO- 



050 



LIST INVOICE NUMBER 



KB 



MATIC PRINTING ON VOUCHER AND OPTIONAL 



CP 



VENDOR LEDGER. OCK TO SEQ. 090 ON .00* 



060 



LIST DISTRIBUTION ACCOUNT NO. 



STORE; IF ACCOUNT NUMBER IS NOT IN 
MEMORY, PRINT * AFTER LAST DIGIT. 



TO PRINT * EVEN IF ACCOUNT NUMBER IS IN 



MEMORY TO ALLOW DIRECT DISTRIBUTION TO 



LEDGER CARDS. OCK TO STEP 040. 



370 



LIST DISTRIBUTION AMOUNT 



STORE: OCK TO SEQUENCE 080 



OCK TO SEQUENCE 060 



I F "*" AT SE Q . 060 GO TO E XP ,_LEDGER 



STEP 350. 



)80 



.00 PROOF PRINT (AUTOMATIC) 



TOTAL INVOICE AMOUNT LESS DISTRIBUTION 



= .00 . IF N O T .00 , RE TURN TO SEQ. 060. 
IF . 00, GO TO SEQ . 040. 



NOTE: PROVIDE FOR AUTOMATIC FORMS CONTROL 



OF 



PURCHASE, PAYMENT AND DISTRIBUTION JOURNAL. SYSTEMS SHOULD AUTOMATICALLY 



ADVANCE TO THE NEXT TOP 01 



FORM 



DURING 



SECUENOES 20, 40 2 90, 91^, _100_, 



and 332. ADVANCE TO TOP OF NEXT FORM 



PRIOR TO BEGINNING SEQUENC E 430 



OPEN 



HAJ*DLE(l WHILE SLEWING FORM. 
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DATA DESCRIPTION 

OR 

OPERATION 


A N 

k ' U 
P M 
H . E 
A R 
N 1 
U C 
M 1 |NI 

R 

1 1 
C 1 
IAI 1 


FIELD DEFINITION 
INPUT 


INPUT SOURCE 

Keyboard IKBI, Specify Media, 

Specify MB. OCK, PK, etc., only 

if particular one required; 
Punched Card IPC); 
Edge Punched Card (EPCI; 
Punched Tape (PT); 
Striped Ledger (SL), 

Specify Reader; 
Memory (Mi; Data Com Receive. (R) 


PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 


p 

R 
1 

N 

T 

w) 


p 

u 

N 

c 

H 

<•> 


FIELD DEFINITION 
OUTPUT 


OUTPUT DETAIL 
Print: Specify Printer and Format 
Console (CP)„ Line Printer (LP): 

Punch: Specify Adjunct, Format, 
Speciel codes, etc.: 

Striped Ledger: 

Data Com Transmit. (T) 


1 

N 

s 

T 
R 
U 
C 
T 
1 


N 
S 




Fixed 


Variable 


= ixed Variable 




Size 


Min 


Max 


Norm 


Size 


Mm 


Max 


Norm 


090 


TRANSPORT OPENS. INSERT VOUCHER 












KB 


OCX'S. -fc> SSei lt>0 

STORE OLD BALANCE. CDV. IF NO PREVIOUS 

BALANCE, HEAD VOUCHER, SEQ. 091. PR0VID 
PK TO INSERT CONTINUATION VOUCHER. STEP 


: 

X 


















CHECK TO APRON. LIST OLD BAL. S. 






























CHECK DIGIT 


N 






10 






— - 


9 




CP (CD DOES NOT PRINT) 




















091. 








D91 


TYPE NAME AND ADDRESS 


A 






23 




KB 


OCK 1 RETURN TO 091. . . 4 LINE MAX. 


X 








23 




CP 




















OCK 4 TO 100. 


















































LOO 


PRINT PREVIOUS BALANCE 


N 






9 




M 




X 








9 




CP 






















X 




9 


-— 


— 


— 






L05 


DATE 


A 


9 








M 




CP 
























— 














L10 


INVOICE NUMBER 


A 






9 




M 


REMEMBERED FROM SEQUENCE 050 


X 






9 




CP 






































L20 


REFERENCE 


A 






17 




KB 


PK FOR CONT. 


X 








17 




CP 






































L30 


INVOICE AMOUNT 


N 






8 




M 


REMEMBERED FROM SEQUENCE 040 


X 








8 




CP 






































L40 


DEDUCTIONS 


N 






6 




M 


IF MINUS AMOUNT AT SEQ. 070 - PRINT HERE 


X 








6 




CP 




















IF FURTHER INVOICES IN MEMORY, RETURN 


































TO SEQ. 105. IF LAST INVOICE, GO TO SEQ 
































150. 




"- 














































.50 


PRINT NEW VOUCHER BALANCE 


N 






8 




M 


COMPUTE CHECK DIGIT. 


X 






8 




CP 


.._ 


L 51 
.60 


PRINT CHECK DIGIT 


N 






2 




M 


MOD 11 CHECK DIGIT. -T« Sntt.uuuU 


X 








2 




CP 
















-»i»«cr t*V 

















INSERT VENDOR LEDGER 














LIST- BALANCES ,TO DATE AND CHECK DIGIT 










-- 


VENDOR LEDGER 














FROM VENDOR LEDGER. 






























OCK 1 TO SEQ. 




























230. 


— 








-- 


— 
























LIST AMOUNT DUE, LIST PJJ.RCHAS.E_ 


N 






7 




KB 




j 




- 


— 








_ 


TD R CHECK DIGIT 


N 






10 




KB 
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DATA DESCRIPTION 

OR 

OPERATION 


A ~TT 

L 1 U 
P 1 M 

tJ 1 E 

A R 
N 1 
U 1 c 
M 1 (N) 

L R 

1 1 

c 1 
(A) 1 


FIELD DEFINITION 
INPUT 


INPUT SOURCE 

Keyboard (KB), Specify Media, 

Specify MB, OCK, PK, etc.. only 

if particular one required; 
Punched Card (PC); 
Edge Punched Card (EPCI; 
Punched Tape IPT); 
Striped Ledger ISL), 

Specify Reader* 
Memory (M);DataCom Receive. IR) 


PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 


p 

R 
1 

N 
T 
(•> 


p 
u 

N 

c 

H 

<•> 


FIELD DEFINITION 
OUTPUT 


OUTPUT DETAIL 
Print: Specify Printer and Format 
Console (CPI„ Line Printer (LP); 

Punch: Specify Adjunct, Format, 
Special codes, etc.; 

Striped Ledger: 

Data Com Transmit. IT) 


1 

N 

s 

T 
R 

u 
c 

T 

1 
o 

N 

s 


: txed 


Variable 


Fixed 


Variable 


Size 


Min 


Max 


Morm 


Size 


Min 


Max 


Norm 




VENDOR LEDGER CHECK PAYMENT 
















X 

X 
















170 


DATE 


A 


9 








M 


NONE 

ADVANCE BY 1, PRINT IN RED. NO LIST IS 


■-- 


9 








CP 




180 


CHECK NUMBER 


N 






5 




M OR KB 


-- 


5 




CP 




















AUTOMATIC NUMBER. 










190 


CHECK AMOUNT 


N 






7 




KB 


SUBTRACT FROM VENDOR BALANCE. OCK 4 TO 


X 




-— ■ 




7 




CP 




















PRINT FULL VOUCHER BALANCE. LIST AMOUNT 




























W/OCK 1,2,3 FOR PARTIAL PAYMENT. 












200 


DISCOUNT 


N 






5 




KB 


OCK 1 TREATED AS DOLLAR LISTING. 


X 

X 
X 
X 

X 








10 


-■■ 






















OCK 2,3,4 TREATED AS PERCENTAGE FIGURE 


CP 




















99 DECIMAL 99 = 99.997.. SUBTRACT FROM 






















CHECK AMOUNT AND VENDOR BALANCE. 








201 


PRINT 7. 4.757. IN RED 


A 








M 


IF DISCOUNT OPTION USED. 


1 

8 


— 


CP 




210 


PRINT BALANCE 


N 






8 




M 


STORE 
CDC 


CP 




220 


PRINT PURCHASES YEAR TO DATE 


N 






10 




M 


10 




CP 




221 


PRINT CHECK DIGIT 


N 






2 




M 


TO SEQ. 290 AFTER OPENING TRANSPORT 


2 




CP 

























9 












VENDOR LEDGER U PD 


ATE 


P 


J R 


C r 


A 


i E S 












230 


DATE 


A 


9 








M 


NONE 


X 

X 

z 

X 
X 

x_„ 

X 


9 

15 




CP 




240 


INVOICE NUMBER 


A 






9 




M 


NONE 


CP 




250 


DESCRIPTION 


A 






15 




KB 


NONE - OCK FOR IN RUN FILLED 




CP 




















SHEET 


8_ 








260 


DEBITS 


N 






8 




M 


STORE: MULTIPLE TO SEQUENCE 230 
LAST ITEM TO SEQUENCE 270 


-- 


- — 




CP 






















- 


no 

!80 


BALANCE N 






8 




M 


S 

10 




CP 


PURCHASES TO DATE 


N 




— - 


10 




M 


CDC. STORE - DECISION TO WRITE CHECK 
USE PK TO SEO. 170 ABOVE. OCK RETURNS 




CP 




!81 


PRINT CHECK DIGIT 


N 




2 




M 


2 




CP 




















TO SEQUENCE 020. 




— 

























































- 
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290 



300 
310 
320 
330 



331 



332 
333 
334 



(50 



LSI 
359 
360 
370 
375 
380 
390 
.00 
.10 



DATA DESCRIPTION 

OR 

OPERATION 



C H E C K W R T T T N G 



JNSM2LCHEOLTO._B0TTpM.IJMriL 
PRINT CHECK DATE 



CHE CK NUMBER 

DISCOUNT AMOUNT 



SAFEGUA RD AMOUNT 



AMOUNT 



PARITAL CHECK 



PRINT DATE 



PRINT "VO" THEN VOUCHER # 



PRINT "BALANCE FORWARD" 



MISC ELLANEOUS POSTING TO GENERAL 



LIS T ACCO UNT BALAN CE AND C HECK 
DIGIT 



INSE RT LEDGER 
PRINT "PJ" OR "JE" 



PRINT DATE 



PRINT ACCOUNT NUMBER ON LEDGE R 



REFEREN CE : VO# 17 ALPHA 
DEBIT 



CRED IT 

CURRENT MONTH BALANCE 



PRINT CHECK DIGIT 



S! 

N 

M I { 

I ' 
I I 
C I 



Fixed Variable 



A/N 



LEDGE!. 



FIELD DEFINITION 
INPUT 



Size Min | Max Norm 



INPUT SOURCE 

Keyboard (KB), Specify Media, 

Specify MB, OCK, PK, etc., only 

if particular one required; 
Punched Card (PC); 
Edge Punched Card (EPCI; 
Punched Tape (PT); 
Striped Ledger (SL), 

Specify Reader; 
Memory (M); Date Com Receive.(R) 



FROM SEQ. 070 



KB 



M/KB 



■ PROCESSING 



-OUTPUT - 



PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 



NONE 



NONE 



NONE: IF PARTIAL PAY TO STEP 331 



OTHERWI SE, O PEN HANDLER AND RETURN TO 
020 



HEAD UP VOU CHER AS IN SEQ. 091. OPEN 



HANDLER REALIGN 



THEN B ALANCE (150 - 151) THEN TO SEQ. 20 



020, PAGE 1. 



C DV. OPEN HA NDLER 



.EB6M_060. 

VOUCHERS AUTO PRINT IN "VO" AFTER 



STORE. ADD TO ACCOUNT BALANCE (SEQ .350) 
STOR E. ADD TO ACCOUNT BALANCE (SEQ . 350 ) 

CDC 

GO TO SEQ . PER OCK DEC ISION FROM 



SEQUENCE 70. (TO 60 OR 080) 



FIELD DEFINITION 
OUTPUT 



xegj 

ize | ^ 



Size Min Max Norm 



OUTPUT DETAIL 

Print: Specify Printer and Format 
Console (CP)„ Line Printer (IP); 

Punch; Specify Adjunct, Format, 
Special codas, etc.; 

Striped Ledger: 

Data Com Transmit. (T) 



CP 



CP 
CP 



_CP_ 

CP 

CP 

CP 

CP 

CP 



CP 
CP 
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EQUIPMENT 


SALESMAN 


BRANCH 




DATE 
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s 

E 

a 
u 

E 
N 
C 

E 


DATA DESCRIPTION 

OR 

OPERATION 


L 1 U 
P 1 M 
H | E 
A R 
N 1 
U c 
M 1 (N) 

I 1 
1 1 
C 1 


FIELD DEFINITION 
INPUT 


INPUT SOURCE 

Keyboard (KB), Specify Media, 

Specify MB, OCK, PK, etc., only 

if particular one required; 
Punched Cerd IPC); 
Edge Punched Card (EPC); 
Punched Tape (PT); 
Striped Ledger (SL), 

Specify Reader; 
Memory (M); Data Com Receive. (R) 


PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 


p 

R 
1 

N 
T 
{/) 


p 
u 

N 

c 

H 

(/I 


FIELD DEFINITION 
OUTPUT 


OUTPUT DETAIL 
Print; Specify Printer and Format 
Console (CP)„ Line Printer (LP); 

Punch; Specify Adjunct, Format, 
Special codes, etc.; 

Striped Ledger: 

Data Com Transmit. (T) 


1 

N 

s 

T 
R 

u 

C 

T 

1 

O 
N 

s 


: ixed 


Variable 


Fixed 


Variable 


Size 


Min 


Max 


Morm 


Size 


Min 


Max 


yorm 




TOTALS ROUTINE 
















...... 














— 


♦ 20 






























+30 


PRINT "TOTAL INVOICES" 


A 


14 




23 




M 




X 

X 








23 




CP 




(40 


PRINT TOTAL INVOICE AMOUNT 


N 






11 




M 










11 




CP 




♦ 50 


PRINT "TOTAL PAYABLES" 


A 






23 




M 




X 








23 




CP 




♦ 60 


PRINT TOTAL ACCOUNTS PAYABLE 


N 






11 




M 


RED (CR.) IS NORMAL COLOR 


X 








11 




CP 




♦70 


PRINT "TOTAL CHECKS" 


A 






23 




M 




X 








23 




CP 




♦80 


PRINT TOTAL CHECKS WRITTEN 


N 






11 




M 


RED (CR.) IS NORMAL COLOR 


X 
X 

X 
X 
X 








11 




CP 




.90 


PRINT "TOTAL DISCOUNTS" 


A 






23 




M 




- 


__ 




23 
11 




CP 




J00 


PRINT TOTAL DISCOUNT AMOUNT 


N 






11 




M 


RED (CR.) IS NORMAL COLOR 




CP 




>10 


PRINT "NET TOTAL" 


A 






23 




M 


SPACE - THEN PRINT - REFERENCE FIGURE 








23 




CP 




520 


PRINT NET TOTAL AMOUNT 


N 






11 




M 


ONLY 






11 




CP 


530 


PRINT A/P DISTRIBUTION 


A 






23 




M 


HALT PROGRAM TO ALLOW OPERATOR TO CONT. 


X 








23 




CP 




















BY DEPRESSION OF OCK OR PK. OCK OR PK 




























TO RETURN TO SEQ. 020 IF TOTALS ARE 




























INCORRECT. 


X 
X 

X 

X 


- 














140 


PRINT ACCOUNT NUMBER 


N 






6 




M (FROM SEQ. 060) 


PRINT ONLY THE ACTIVE ACCOUNT NUMBERS 


... 


6 




CP 




>50 


PRINT AMOUNT 


N 






11 




M (FROM SEQ. 070) 


AND THEIR CORRESPONDING AMOUNTS . 


11 
13 

11 





CP 

CP 

CP 




— 


160 


PRINT TOTAL DISTRIBUTION 


N 






13 




M 
















11 










161 


DISTRIBUTION PROOF 


N 








M 


LIGHT PK FOR GENRAL LEDGER UPDATE. SUBTh 




- 


















RACT POSTINGS FROM DISTRIBUTION TOTALS 


— 






G/L UPDATE FROM MEMORY 














OPERATION IS THE SAME AS STEPS 350 TO 




















410 ACCOUNT NUMBER COMES FROM MEMORY. 




















PK FOR FINAL TOTALS. PRINT "PJ SUMMARY 
TOTAL" AFTER ACCOUNT NUMBER. 








































ON JOURNAL ENTRIES, PRINT "JE" AND 






















"SUMMARY TOTALS" 


































































































































L 4000 ACCOUNTS PAYAB1 


.E ^etj^. 











Printed in U. S. America 



© 



PROGRAM DEFINITION CHART 



tfKTG 2402 (6-69) 





■* 










IWPIIT 




















• 










! s 

E 
1 Q 
U 
! E 
N 
C 
E 


DATA DESCRIPTION 

OR 

OPERATION 


t ' u 
P 1 M 

!) : E 

A R 
N 1 
U C 
M 1 |N 

R ' 

c 1 
IA|I 


FIELD DEFINITION 
INPUT 


INPUT SOURCE 

Keyboard 1KB), Specify Media, 

Specify MB, OCK, PK, etc., only 

if particular one required; 
Punched Card (PC): 
Edge Punched Card (EPC); 
Punched Tape (PT); 
Striped Ledger (SL), 

Specify Reader; 
Memory (M); Data Com Receive. (R 


PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 


p 

R 
1 

N 
T 
1/ 


p 

u 

N 
C 
H 


FIELD DEFINITION 
OUTPUT 


OUTPUT DETAIL 

Print: Specify Printer and Format 
Console (CP)„ Line Primer (LP); 

Punch: Specify Adjunct, Format, 
Special codes, etc.; 

Striped Ledger: 

Data Com Transmit. (T) 


1 

N 
S 
T 
R 

u 
c 

T 

1 

O 
N 
R 


Fixec 


Variable 


c ixed Variable 


Size 


Min 


Max 


Norm 


Size 


Min 


Max 


Norn- 


57C 


TOTALS "GENERAL LEDGER TOTALS" 


A 










M 




X 
















58( 
59j 


"TOTAL DERTTS" 


A 






18 




M 




- -- 





.18 

11 
18 




CP 




PRINT TOTAL DEBITS 


N 






11 




M 




CP 




60C 


"TOTAL CREDITS" 


A 






18 




M 




X 




CP 




610 


PRINT TOTAL CREDITS 


N 






11 




M 


RETURN TO READY MODE 


z 








1 1 




CP 










































































INITIAL INSTALLATION 


















... 


-" 






























- 


'4 


— 








VENODR LEDGER 




















700 


TYPE VENDOR NAME 


A 






24 




KB 




X 




CP 




710 


LIST VENDOR NUMBER 


N 






6 




KB 




X 


6 




CP 


^ 


720 


LIST ACCOUNT BALANCE 


N 






8 




KB 




X 

X 
X 


— 






8 




CP 




7 30 


LIST PURCHASES TO DATE 


N 






9 




KB 


ON FILLED SHEET. LIST CHECK DIGIT 


..... 




9 




CP 




740 


PRINT CHECK DIGIT 


N 






1 




M 


BALANCE + PURCHASES = CHECK DIG BASE 




1 




CP 




750 


TYPE ADDRESS LINE 


A 






60 




KB 


RETURN TO MAINLINE 


X 








60 




CP 


































GENERAL LEDGER 
















X 
X 

X 

_x_ 














— 


76C 


TYPE ACCOUNT NAME 


A 






31 




KB 




.... 






31 




CP 


770 


LIST ACCOUNT NUMBER 


N 






6 




KB 




--- 




6 

8 




CP 


780 


LIST ACCOUNT BALANCE 


N 






8 




KB 


ON FILLED SHEET, LIST CHECK DIGIT 




CP 


— 


790 


PRINT CHECK DIGIT 


N 






1 




M 


RETURN TO MAINLINE 





— 


1 




CP 












































- 
































— 












































— 




























— 






























































































1 
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s 
a 


E 
N 
C 

E 


DATA DESCRIPTION 

OH 

OPERATION 


t 

8 

u 

M 

c 


u 

M 
E 
R 
1 

C 
IN) 


FIELD DEFINITION 
INPUT 


INPUT SOURCE 

Keyboard (KB), Specify Media, 

Specify MB, OCK, PK, etc., only 

if particular one required: 
Punched Card (PC); 
Edge Punched Card IEPC); 
Punched Tape (PT); 
Striped Ledger (SL>, 

Specify Reader; 
Memory IM); Data Com Receive. IRI 


PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 


P 
R 
1 

N 
T 
(/I 


P 

U 
N 

c 

H 

1/) 


FIELD DEFINITION 
OUTPUT 


OUTPUT DETAIL 

Print: Specify Printer and Format 
Console (CP)„ Line Printer (LP); 

Punch; Specify Adjunct, Format, 

Special codes, etc.; 
Striped Ledger: 
Data Com Transmit. IT) 


1 

N 
S 

T - 
R 
U 
C 
T 
1 


N 
S 


Fixed 


Variable 


: ixeC 


Variable 


Size 


Min 


Max 


Storm 


Size 


Min 


Max 


Morm 




JOURNAL ENTRIES DR/CR POSTING 
































































D30 


TYPE 28 CHARACTER EXPLANATION 


A 






28 




KB 


STORE FOR LATER USE. OCK 1 ENDS. OCK 


X 


— 






28 




CP 




















2,3,4 ALLOW ONE MORE LINE, ALSO STORED. 














































360 


LIST ACCOUNT NUMBER 


N 






ft 


4 


KB 


OCK TO STORE AMOUNT IN MEMORY. IF 


X 








6 




CP 























A/C NUMBER NOT PRESENT PRINT "*" AND 


































FORCE MANUAL POSTING. (SAME AS SEQ. 


































60 - PAGE 1) 


X 
















)70 


LIST AMOUNT 


N 






8 




KB 










8 




CP 






OCK 2 = TO 060 






























— 




OCK 1 = TO .00 PROOF 






























































550 


LIST ACCOUNT BALANCE AND CHECK 


































DIGIT 


N 






9 




KB 


CDV, OPEN HANDLER 


















































— - 


)60 


INSERT LEDGER, PRINT DATE 


A 






9 




M 




X 








9 




CP 


170 


PRINT ACCOUNT NUMBER 


N 






6 


4 


M 




X 
X 


— - 






6 




CP 




171 


PRINT "JE" 


A 






2 












2 




CP 


-- 






























17 5 


PRINT 28 CHARACTER MESSAGE FROM 














NOTE: THIS IS A LONGER MESSAGE, AND 


X 


















MEMORY 


A 






28 




M 


AN AUTOMATIC MESSAGE, THAN 375 ON P. 4 






28 




CP 


•- 


















ALLOW FOR TWO LINES OF TYPING. 
































-- 












180 


DEBIT 












N 






— - 








-- 


i90 


CREDIT 












4_ 








■00 


MONTH BALANCE 












y 


SAME AS PAGE 4 










!.10 


CHECK DIGIT 












r 






-— 






































~ 




















































-- 










-- 
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APPLICATION 


T. 4000 ACCOUNTS PAYART.F. 


FniMPMENT 


SALESMAN 




BRANCH 




DATE 



Printed in U. S. America 



© 
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MKTG Z40Z <6-69> 



.5 



1.5 



2.5 



CUSTOMER 

EQUIPMENT L40»O 

SALESMAN 

3 3.5 4 4.5 

]jjj i . i .i.[un l )ij.i.l.!.i: i . 



.APPLICATION Afc <t °'"- ) TS ?6Y*at.fc 

BRANCH '. 

DATE 



O 



PROGRAM DEFINITION WORKSHEET 



6 6.5 7 7.5 8 8.5 9 9.5 10 10.5 11 

Tttttttt ft-ttt jti.trTtW-1 1 1 1 1 J J J . 1 . 1 J J. 1 . 1. L 1. t+thl :t :t:l :1 .1. 1.1. 1 1 1 1 



12 12.5 13 13.5 14 14.5 

iliin.iimiiii-t-l.thti-1+tt 



15 15.5 16 16 5 17 17.5 18 18.5 19 19.5 20 20.5 21 21.5 22 22.5 23 23.5 24 24.5 26 25.5 26 



CARRICO INDUSTRIESXXXXX 
1234 MAIN STREET 
DETROIT, MICHIGAN 
XXXXXXX48232XXXXXXXXXXX 



NAME 
ADDRESS 
— CITY. 



-DATEXXXXX 1234S6 125.00 $336,875.005336,875 .00 



ZIP 



&*re 



IMV.NO. R»|tfi«Mte 



IN«*Hff 



6tPwtTl«M 



t*wkN«e \ 



.00 



DATEXXXXX A234567 
DATEXXXXX 123456X 



MANUAL TYPE 999,999.99 

XXXXXXXXXXXXXXXXX 111,111.1888,888.88 3 



DATEXXXXX 

1231*56 



.00* 



VOUCHER BUILD UP SYSTEM NAME 999,999 



999,999.99 A234567 
111 ,111. tr 123456X 



VENDOR LEDGER SYSTEM 
100,000.00 A234588 



200,000.00 321 

200,000.00" 3 21 S« 
250,000.00 321 



610 
610* 

101 

101 
101 



666,666 

900,000,00 
99,999.99 

.00 
111,111.11 

222,222.22/Pffl 
1 1 1 , 1 1 1 . 1 1 «* 
1 1 1 , 1 1 1 . 1 1 -ftp 

.00 



159,357 
301 
610* 

1,234.56* 



753,159 
50,000.00 
50,000,00 



250,000,00 

so, ooo. oo *»: 



TOTAL INVOICES 
TOTAL A/P 
TOTAL CHECKS 
TOTAL DISC. 

NET TOTAL 



/<>?m? 



1,238,888.88 

888,888,88-1 ,, B 
336,875.00 J*'* 
13,125.00 J 

350,000,00 

A/P DISTRIBUTION 



101 
301 
610 



101 
301 

610 



111,111,11^ 

50,000,00 
900,000,00 



G/L TOTAL 
TOTAL DEBITS 
TOTAL CREDITS 



l^ 7/8" X i\" fit PH» T»*»»»Al_ 

! . ,,,;,,,! 




838,888.89 



1.5 



2.5 



6.5 



7.5 8 8.5 



9.5 10 10.5 11 11.5 12 12.5 13 13.5 14 14 5 15 15.5 16 16 5 17 17.5 18 18.5 19 19.5 20 20.5 21 21.5 22 22.5 23 23.5 24 24.5 25 25.5 26 



PAGE 
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INPUT 






OUTPUT 


ON 


ALPHA 


READY 


INVALID 
CODE 


READER 
COND. 


PUNCH 
OFF 


MEDIA 


ECHO 
CHECK 


TAPE 
SUPPLY 



START 


LOAD 


UTILITY 












VENDOR 


GENERAL 


AUTO 






INITIAL- 




ZERO 




DIRECT 


POST 


JOURNAL 


ACCOUNT 


LEDGER 


LEDGER 


REVERSE 


CONTIN- 




IZE 




PROOF 




PAY 


PAYMENTS 


ENTRIES 


NUMBER 
CHANGES 


FILLED 
SHEET 


FILLED 
SHEET 


PREVIOUS 
INVOICE 


UATION 
VOUCHER 





10 



II 



12 



13 



CHECK 
WRITING 
ONLY 


WRITE 
CHECK 




INITIAL 
INSTAL- 
LATION 




START 
ACCOUNTS 
PAYABLE 


CLEAR 
TOTALS 




JOURNAL 

ENTRY 

TOTALS 




TOTALS 


ERROR 


NUM. 



14 



15 



16 



17 



18 



19 



20 



21 



22 



23 



24 



LU000 pk strip 



001600/***************************************************************** 
001700* OPERATING INSTRUCTIONS 

001600****************************************************************** 

ooivoo* 

002000* 

002100****************************************************************** 

002200* INTTTALT7E 

002300****************************************************************** 

002400* 

002500* 1. ALIGN FORM TO LINF 3. 

002600* 14 7/« CARBON-FACFn JOURNAL* RIGHT EDGK AT 000 

002700* STYLE 3 FRONT GUlDr LEFT AT SCALE 003 

002800* STYLE 3 FRONT GUIDf RIGHT AT SCALE 068 

002900* STYLE 1 FRONT GUIDE LEFT AT SCALE 156 

003000* STYLE 1 FRONT GUIDE RIGHT AT SCALE 256 

003100* LOWER PRESSURE ROUS ENGAGED 

003200* 

003300* 2. DEPRESS PK1 TO START— -THE FOLLOWING PKtS ARE LIT 

003400* PK5 - DIRECT PAY 

003500* PK 7 - JOURNAL ENTRtES 

003600* PK 8 - CHANGE ACCOUNT NUMBERS 

003700* PK 14 - CHECK WRITING ONLY 

003800* PK 17 - INITIAL INSTALLATION LEDGFR HEABlIP 

003900* PK 19 - START A/P 

004000* PK 20 - CLEAR TOTALS 

004100* PK 24 - A/P TOTALS 

004200* OCK 1 - LOAD DATE AND 1ST CHECK NUMBER 

004300* 

004400****************************************************************** 

004500* DIRECT PAY 

004600****************************************************************** 

004700* 

OO44OO* FOLLOW THE PROCEDURE FOR "LOAD DATF AND 1ST CHECK NUMBER" 

004 l ?00* AMD THEM FOR "ACCOUNTS PAYABLE WITH CHECK WRITING". THE 

005000* EYCEPTIHNS ARE NOTED WHERE APPLICABLE. 



005100* 

005?00****** *************************** ********- >,.******************** 

005 300* journal r M T P i r s 

005 /i 00****************************************************************** 

005500* 

005600* TYPE DAT? WITH OCK 1. 

005700* 1. TYPE DESCRIPTION WtTH 

005800* OCK 1 FOP SINGLE LtNE OR 

005900* OCK 2 FOR A SECOND LINE OF TYPING OR 

006000* PK 22 FOR JOURNAL ENTRY TOTALS. 

006100* ?. LIST n!STRIBUTiON ACCOUNT NUMBER WITH 

006200* OCK 1 FOR NORMAL OPERATION OR 

006300* OCK 3 TO BYPASS SEARCH FOR ACCOUNT NUMBFR IN MEMORY OR 

006400* OCK 2 TO TYPE ANOTHER DESCRIPTION. RETURN- 

006500* ING TO STEP 1 ARnVE OR 

006600* PK 3 TO PRINT PROOF FIGURE. 

006700* 3. LIST nisTRlBUTION AMOUNT WITH 

006P00* OCK 2 FOR MULTIPLE DIStRIBUT TOnS, RETURNING TD StEP 2 

006900* AB^VE 

OO7OOO* OCK 1 TO PRINT PROnF FIGURE. 

007100* USE RP KEY FOR CREDIT ENTRIES, 

007200* A. WHEN PROOF FIGURE T S .00* OPERATION RETURNS TO STEP 1 

0O730O* ABOVE. OTHERWISE, OPERATION RETURNS TO STEP 2 ABOVE. 

007'tOO* 

007 c >00**************************** + ************************************* 

007600* C H A N G r ACCOUNT N II M B F R S 

07700 ************************************ ****************************** 

007800* 

OO79OO* MOTE--ACCOHNT NUMBERS MUST BE IN ASCENDING ORDER IN 

008000* MFMOPY. THE CHART OF ACCOUNT NUMBERS INITIALLY LOADED 

OOfi! 00* CAN BE FOUND IN THE DATA DIVISION. 

008200* 1. LtST ACCOUNT NUMBFP TO BE CHANGED WyTH OCK i. IF THE 

008300* ACCOUNT NUMBER Is MOT IN THE TABLE* AN * WILL PRINT AND 

OOfi/tOO* THE Al ARM *TLL SOl'*'D. REITS? ACCOUNT NUMBER. 

008500* 9. LTST THE NEW ACCOUNT NUMBER WITH OCK 1. 



008600* 3, PK 1 TS ENARLED FOP A RETURN TO START. 

008700* OTHERWISE RETURN Tn STEP 1 ABOVE. 

008800* 

008900****************************************************************** 

009000* CHECK WRITING ONLY 

0091 00 ****************************************************************** 

009200* 

009300* AT THE START OE EACH CHECK OPERATION* THE FOLLOWING PKlS 

009400* ARE ON 

009500* PK 1 - RETURN TO INITIALIZE 

009600* PK 9 - VFNDOR LEDGEP FILLED SHEET HEADUr" 

009700* PK 24 - TOTALS 

009800* 1 . TYPE VENDOR NAME 

009900* ?, LIST VENDOR NUMBER, IF ANY, WITH OCK 1. 

010000* 3. LIST VOUCHER NUMBER WITH OCK 1. 

010100* A, LIST VOUCHER BALANCE (NO CHECK DIGIT REQUIRED), 

010200* ■>. TO BYPASS VENDOR LFDGER OPERATION DEPRESS OCK 2. 

010300* OTHERWISE LIST VENpOR BALANCE WITH OCK !, LIST 

010400* PURCHASES TO DATE AND CHECK DIGIT* OCK 1* AND INSERT 

010500* VENDOR LEDGFR. 

010600* 6, if POSTING TO VEND"R LEDGER, PROCEED WtTH STEP 17 OF 

010700* "ACCOUNTS PAYABLE wITH CHECK WRITING" AND RETURN TO 

010800* STEP 1 ABOVE FOR NFXT CHECK. 

010900* IF BY p ASSlNG VENoOp LEDGER, DEPRESS OCK 1 TO PRINT NEXT 

011000* CHECK NUMBER AUTOMATICALLY OR LIST NEXT CHECK NUMBER 

011100* AND OCK 1. THEN DEPRESS DCK ? FOR A 

0H200* DISCOUNT PERCENT Or OCK 1 TO LIST A DISCOUNT DOLLAR 

011300* AMOUNT, IE LISTING A PERCENT, LIST AS 4.5. IF NO 

011400* DISCOUNT, DEPRESS nCK 3. 

011500+ 7. IMSFRT CHECK — PRINTING is AUTOMATIC. RFTURN TO STEP 1. 



011600/ 

011700**************************************'**************************** 

011800* T N I T I A l INSTALLATION L F P G F R 

011900* H r A D U P 

012000****************************************************************** 

012100* 

012200* 1. DEPRESS PK 9 TO HEADUP VeNPPR LEDGER OR 

012300* DEPRESS PK 10 TO HFADUP GENERAL LFDGER OR 

012400* DEPRESS PK 1 TO RETURN TO ■ INITIALIZE. 

012500* 2. VENDOR LFOGpR — ALTGN LEDGER FOR NAME 

012600* TYPE VENDOR NAME W T TH OCK 1 

012700* LIST VENDOR NUMBER WITH OCK 1 

012800* " LIST VENDOR BALANCF WTTH OCK 1 

012900* LIST PURCHASES TO r>ATF WITH OCK 1 

013000* 

013100* TYPE VENDOR ADDRESS WTTH OCK 1 

013200* RETURN TO ST^P 1 APOVE. 

013300* 

013400* NOTE--THE CHLCK DlrJT HILL HE AUTOMAT I fc A | I Y COMPljTtD 

013500* AND PRINTED IF THlc OFFRATION IS INITIAL INSTALLATION, 

013600* HOWEVER* jf THjS OPERATION ]S BejNG PERFORMED AS A 

013700* FILLFH SHEET lFDGFr HEADUP, THE CHECK DTGIT NUST RE. 

013800* LlSTFH WITH PURCHASES TO DATE. 

013900* 

014000* 3, GENERAL LEDGER — A| I GN EORM FOR ACCOUNT TITLE 

014100* TYPE ACCOUNT TjTLE WITH OCK 1 

0U200* LIST ACCOUNT NUMBER WTTH OCK 1 

014300* LIST ACCOUNT BALANrF WITH OCK 1 

014400* RETURN TO STEP 1 APOVE. 

014500* 

014600* NOTE--THE CHECK DTr.IT WILL HE AUTOMATICALLY COMPUTED AND 

014700* PRINTED IF THIS OPERATION IS INITIAL INSTALLATION. 

014800* HOWEVFR, IF yHjS OPERATION TS BEING PERFORMED AS A 

014900* EILLEH SHEET LEDGFw HRADUP THE CHECK ntGIT MUST BF 

015000* LISTED WITH THF AMOUNT BAIANCE. 



015100* 

015200****************************************************************' 

015300* ACCOUNTS PAYARLF WITH 

015400* CHECK WRITTNG 

qj 5300*** ********************************** ***************************** 

015600* 

015700* AT THE STApT UF EACH VENDOR, THE FOLLOWING PKlS ARE LIT 

015600* PK 1 - RETURN TO INITIALIZE 

015900* PK 15 - WRITE CHECK FOR PREVIOUS VENDOR (SEE STEP 6 OF 

OUOOO* "CHECK WRITING ONLY"* BYPASSING VENDOR LEDGER. 

016J00* PK 24 - A/P TOTALS 

016200* 1. TYPE VENDOR NAMF WtTH OCK 1. 

016300* 2. LIST VENDOR NUMBER WITH OCK 1. 

016400* 3. LTST VOUCHER NUMBER WITH OCK 1. 

016500* 4. LIST TNVOICF AMOUNT WITH OCK 1 OR 

016600* DEPRESS OCK 2 TO WpITF VOUCHER. THE SYSTEM ALLOWS UP TO 

016700* 10 VOUCHERS AND THr VOUCHER MAY BE WRITTEN ONLY IF THE 

016800* PROOF FIGURE IS .00. 

016900* 5, TYPE TNVniCE NUMBFp WITH OCK 1. 

017000* 6. LIST DISTRIBUTION ACCOUNT NUMBER WITH 

017100* OCK 1 FOR NORMAL OPERATION OR 

017200* OCK 3 TO BYPASS SEARCH FOR ACCOUNT NUMBFR IN MEMORY OR 

017300* PK 3 TO PRINT PROOF FIGURE OR 

017400* PK 11 TO AUTOMATICALLY REVERSE INVOICE 

017500* AMOUNT, RETURNING TO STEP 4 ABOVE. 

017600* 

017700* THE ACCOUNT NUMBER 999,9 MAY BE USED F«P MISCELLANEOUS 

017800* ENTRIFS AS REQUIRED. 

017900* 7, LIST DISTRIBUTION AMOUNT WITH 

018000* OCK 2 FOR MULTIPLE DISTRIBUTIONS OP 

018100* OCK 1 TO PRINT PROnF FIGURE. 

018200* USE RF KEY FOR CRFnIT ENTRY. IF FNTRY WAS .00, 

018300* OPERATION RETURNS TO STEP 6 AROVF FOR LISTING ANOTHER 

C18400* ACCOUNT NUMBER. IF ACCOUNT NUMBER WAS NOT IN MEMORY* * 

018500* PRINTS AFTER THE ACCOUNT NUMBER. FOLLOW THF PROCEDURE 



018600* 
018700* 

018800* 
018900* 
019000* 
019100* 
019200* 
019300* 
019400* 
019500* 
019600* 
019700* 
019800* 
019900* 
020000* 
020100* 
020200* 
020300* 
020400* 
020500* 

020600* 
020700* 
020800* 



FOR "POSTING TO GENERAL LFDGER" FOR THtS ACCOUNT, 

IF OCX 1 WAS USED FOR PROOF FIGURE* OPERATION RETURNS 

TO STFP U ABOVE* Ir PROOF IS .00. 

8. INSERT VOUCHER 

LIST VOUCHER BALANCE AND CHECK DIGIT AND INSERT VOUCHER 
--IF TNCORRECT EnTrY* ALARM WILL SOUND. RELIST-- 

OCK 2 TO VENDOR LEDGER UPDATF (12 BELOW), 

9. IF BALANCE IS .00* ALIGN VOUCHER TO HEADING AND 

TYPE HEADING (4 LTmES MAXIMUM), USING 0CK 1 FOR ADDIT- 
IONAL LINES OR OCK 4 FOR LAST LINE, IF BALANCE IS NOT 
.00 A I I G N To LAST PRINTED LIME OF APRON ON VOUCHER. 
10, TYPE DESCRIPTION FnR EACH INVOICE LINE WITH 
OCK 1 FOR NORMAL OPERATION OR 

PK 12 FOR A CONTINUATION VOUCHER, ON TNE CONTINUATION 
VOUCHER* TYPE HEADTNG AS DESCRIBED IN » ABOVE* 
NOTE--IF HANDLER OpENS DURING THE VOUCHER WRITING 
OPERATjON, THE JOURNAL WlLL ADVANCE AUTOMATICALLY OVER 
THE EDLD, TD RE$UMf OPERATION* REALIGN THF VOUCHER AND 
DEPRESS PK 12. "^ x 

WHEN VOUCHER BUILDUP IS COMPLETE* REMOVE VOUCHER AND 
RETURN TO STEP 1. 



020900/ 
021000* 

021100* 

021200* 
021300* 
021400* 
021500* 

021600* 
021700* 
021800* 
021900* 
022000* 
022100* 
022200* 
022300* 
022*00* 
022500* 
022600* 
022700* 
022600* 
022900* 
023000* 
023100* 
023200* 
023300* 
023400* 
023500* 
023600* 
023700* 

023800* 

023900* 

,024000* 

024100* 

024200 

024300* 



1 1 .VENDO* L FDGFR UPDATE 

NOTE— HK A DjRECT PAY OPERATION* DEPRESS 

OCK 1 TO PRINT NEXT CHECK NUMBER AUTOMATICALLY OR 

LIST NfXT CHECK NUMBER WITH OCK 1. 

THEN* FOR THE DISCOUNT* DEPRESS 

OCK 1 TO LIST A DnLLAR AMOUNT, FOLLOWED BY THE AMOUNT 

OR 
OCK 2 TO LIST A DISCOUNT PERCENT* FOLLOWED BY THE 

PEPCENT (LISTED AS 4.5) OP 
OCK 3 FOR NO DISCOUNT, 
PROCEED WITH STEP 21 BELOW. 



12. INSERT VENDOR LEDGER 

INSERT VENDOR LEDGER. IF LEDGER IS FILLED DEPRESS 
PK 9 AND SEE "InItIAL INSTALLATION" FOR HEADUP 
PROCFDURE. 

13. LIST VENDOR BALANCE WITH OCK 1. 

14. LIST PURCHASES TO DATE AND CHECK DIGI* WITH OCK 1, 
— IF ENTRY INCORRECT, ALARM WILL SOUND*RELIST« 

15. TYPE DESCRIPTION rOR EACH INVOICE LINE WITH 
OCK 1 FOR NORMAL OPERATION OR 

OCK 4 IF FILLED SHEET CONDITION, IF FfLLED SHEET* SEE 
"INITIAL INSTALLATION" FOR HEADUP PROCEDURE, 

16. DEPRFSS PK 6 TO WRITE CHECK OR 

DEPRESS OCK 1 TO RETURN TO STEP 1 FOR NEXT VENDOR, 
"NOTE-IF DIRECT PAY* THE CHECK WILL ALWAYS BE WRITTEN- 

17. DEPRESS OCK 1 TO PRINT NEXT CHECK NUMBER AUTOMATICALLY 

OR 
LIST CHECK NUMBER WITH OCK 1, 

18. DEPRFSS OCK 4 TO PAY FULL VOUCHER BALANCE OR 

LIST PARTIAL PAYMENT AMOUNT AND OCK 1. (THIS OPTION IS 
NOT AVAILABLE WITm DIRECT PAY OR CHECKS ONLY*. 

19. DEPRFSS OCK 1 TO I 1ST A DISCOUNT DOLLAR AMOUNT 



024400* 
024500* 
024600* 
024700* 
024800* 
024900* 

025000* 



FOLLOWED BY THE DOLLAR AMOUNT OR 
DEPRESS OCK 2 TO LIST A DISCOUNT PERCENT FOLLOWED BY 

THE PERCENT LISTED AS 4,5 OR 
DEPRESS OCK 3 IF NO DISCOUNT. 
20, REMOVE VENDOR LEDGER 
21» CHEC* WRITING— INSERT CHECK TO BOTTOM LIMIT AND 

OEPRESS OCK 1, REMOVE VOUCHER CHECK WHFN COMPLETED. 



025100/ 

025200****************************************************************** 

025300* T T A L * 

025400*********************************************************** ******* 
025500* 

J. IF "CHECKS ONLY " oPFPATlDN. RETURN TO "INITIALIZE"- IS 
AUTOMATIC AFTER nFt TPTAL PRINTS. OTHERWISE DEPRESS 
OCK 1 FOR DISTRIBUTION TOTAI S OR PK 1 TO RETURN TO 
INITIALIZE. RESET PAPER. 
?. AFTER HASH TOTAL PpINTS 

OEPRFSS HCK 1 FOP POSTING TO GENERAL .LEDGERS OR 
DEPRrss PK l TO PFTURN TO INITIALIZE. RESET PAPER. 
3. FOR POSTING TO GENFRAL LEDGERS* THE ACTIVE ACCOUNT 
NUMBERS PRINT ON ThE JOURNAL. SEE "POSJTNG TO GENERAL 
LEDGE*". GENERAL LFDGER TOTALS WILL THPN PRINT, 



025600* 
025700* 
025600* 
025900* 
026000* 
026100* 
026200* 
026300* 
026400* 
O26SO0* 



026600* 

026700******************** ************************************* ********* 

026800* POSTING TO GENERAL LEOGFR 
026900****************** ************************************************ 

onooo* 

027t00* 1. INSERT GENERAL LEDGER. IF FRIED SHEET* DEPRESS 

0*7200* PK 10 AND REFER TO "INITIAL INSTALLATION- FOR HEAD UP 

027300* PROCEnuRE. 

02/400* 2, LIST ACCOUNT BALANfE AND CHECK DIGIT. 

027500* —IF INCORRECT ENTpY* ALARM WILL SOUND"REL 1ST— 

027600* 3. IF SUMMARY POSTING, DESCRIPTION WILL PRINT AUTOMATICALLY 

027700* IF" JOURNAL ENTRY POSTING, MESSAGE WILL TYPE IF ENTERED 

027800* PREVIOUSLY ON THE JOURNAL. OTHERWISE TfPE MESSAGE WITH 

027900* OCK 1. 

028000* IF ACCOUNTS PAYABLF POSTING* DEPRESS 

028100* OCK 1 FOR AUTOMATtC DESCRIPTION 

028200* OCK 9 TWICE FOR Nn TYPING AT ALL 

028300* OCK 9 TO TYPE DESrRIPTION FOLLOWED BY OCK 2 

028400* 4. RFMOVF tFDGER. 



0?8S00/ 

028600**** ************************************************************** 

028700* L. HAD DATE AND C h F C K NUMBFR 

026H00******* *********************************************************** 

028900* 

029000* 1. TYPE ^ATE WITH OCK 1, 

029100* 2. LIST REGINNING CHFrK NUMBFR WITH OCK 1. 
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L 4000 ACCOUNTS PAYABLE SYSTEM - DEMONSTRATING AND PRACTICE MEDIA 

Attached are eight (8) ACCOUNTING DISTRIBUTION TICKETS which represent invoices received from 
vendors. Each Distribution Ticket demonstrates major systems features. These features are outlined 
below the Distribution Ticket in the order in which they occur. The first seven Distribution Tickets 
will cover all the points required for an effective systems demonstration. The eighth Distribution Ticket 
is blank to enable you to make a copy and fill it out to customize your demonstration as required. 

The end of a batch of invoices from a vendor is designated on the Accounting Distribution Ticket by a 
circled number: 

Circled 2 designates Post Data to Voucher Check (OCK 2, list balance OCK 1 ) 

Circled 2 2 designates Post Data to Vendor Ledger (Via OCK 2 twice) 

PRE-DEMONSTRATION PREPARATION 

Prepare the following vouchers and Expense Distribution Ledgers: 

1. Account Title # 1 602 Computer Ribbons 

2. Account Title #2 610 Office Expense 

3. Account Title #3 615 Delivery Expense 

4. Account Title # 4 647 Auto Expense 

5. Vendor Ledger 15963 Drews Vendor Company 

6. Sample Voucher Check with ABC Manufacturing Company 
$100.00 Balance (CD = 6) Address 

City, State, Zip 

7. Sample Voucher Check with M S Ink Ltd. 
$100.00 Balance 7346 Winchester Way 

Detroit, Michigan 48232 

8. Sample Voucher Check with Martin Plastics 

$ 1 00.00 Balance 226 1 9 Edgewood 

St. Clair Shores, Michigan 

Align 14 7/8" x 11" Journal, Front and Rear form guides according to operating instructions. Align 
paper to first posting line. Clear totals and load date. Select OCK 1 to reach the beginning of the 
Accounts Payable Voucher Buildup Routine. 



0010 



ACCOUNTING 



DISTRIBUTION 



TICKET 



VENDOR 

VENDOR NUMBER 
INVOICE AMOUNT 



NAME GLJpJL T fa/xji Ms, fibrin Cn. 



0, 



VOUCHER NUMBER 



7?9 4S6 



700 



INVOICE NUMBER /"/? 45~6 73 



DISTRIBUTION ACCOUNT NUMBER 


OCK 


AMOUNT 


OCK 


6/0 


/ 


/OO. 00 


/ 











































THIS PORTION OF PAGE 
WILL BE CUT OFF TO 
REFER TO THE REMARKS 
ON THE FOLLOWING PAGE. 
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)R NAME (2.6.C TfajnjJ/MJTtAJjW 



ACCOUNTING DISTRIBUTION TICKET 

VENDO 

VENDOR NUMBER 

INVOICE AMOUNT 

INVOICE NUMBER F~ft 4S6 79 



0020 



VOUCHER NUMBER 



7Z94S6 



SO. OQ 



DISTRIBUTION ACCOUNT NUMBER 


OCK 


AMOUNT 


OCK 


6/5~ 




3 7. JO 


oZ 


647 




/£50 


/ 



































ACCOUNTING DISTRIBUTION TICKET 
0010 



0010 
0020 



Distribution of dollar amounts to Account Number Table stored in memory. Up to 80 
different account numbers may be handled. 

Illustration of the fastest possible search time (A/C #610). 

0020 Illustration of longest possible search time (A/C #615). 

Keyboard buffering used to index data in advance of its actual processing by the computer 
(i.e., Account Number, Amount, Decision to post to voucher, listing of voucher balance). 

Zero Proof Check of Invoice Amount and Distribution. 

Check Digit Verification of account balances. (Plus balances generate a different Check 
Digit than do minus balances. Mod 1 1 shown.) 

Automatic printing of invoice numbers and amounts from distribution journal. Up to ten 
invoices may be handled at one time. 
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ACCOUNTING DISTRIBUTION TICKET 

VENDOR NAME *^ S (Atz^. 

7?9// 



0030 



VENDOR NUMBER 
INVOICE AMOUNT 
INVOICE NUMBER 



VOUCHER NUMBER 



7^2 v5. OO 



/£34 



DISTRIBUTION ACCOUNT NUMBER 


OCK 


AMOUNT 


OCK 


60^ 




/aZS.^O 


/ 











































ACCOUNTING DISTRIBUTION TICKET 0030 (Optional) 

Repeat illustration of high-speed distribution of invoice data to Voucher Apron. 
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0040 



ACCOUNTING DISTRIBUTION TICKET 

VENDOR NAME ^Mf/'/rl) fiJh*J7/>jh) 

VENDOR NUMBER VOUCHFR NUMRFR Tl&/<2 <3 

INVOICE AMOUNT 

INVOICE NUMBER 



9?? it 



DISTRIBUTION ACCOUNT NUMBER 


OCK 


AMOUNT 


OCK 


649 




/£.£~0 


<2 


6>/0 




3 7.f0 


/ 



































ACCOUNTING DISTRIBUTION TICKET 



0040 



Distribution of dollar amounts to Expense Distribution Ledger when Account Number is not 
stored in memory. If A/C number is not present, "*" prints and system calls for insertion of 
ledger. 

In-Run New Account Routine. (A/C #649 Postage Expense) 

Automatic Typing of Vendor Name on Expense Distribution Ledger. 
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0050 



ACCOUNTING DISTRIBUTION TICKET 

VENDOR NAME A)j)0JiH \J ibx^/V); (J). 

/S963 



VENDOR NUMBER 
INVOICE AMOUNT 
INVOICE NUMBER 



^ 700. 00 



VOUCHER NUMBER 



Z/^34 



?<?9P 



DISTRIBUTION ACCOUNT NUMBER 


OCK 


AMOUNT 


OCK 


6/0 


3 


70dOO 


/ 






"spcl P#cej/m 





































CUTOFF THIS PORTION. 
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0060 



ACCOUNTING DISTRIBUTION 

VENDOR NAME XW/M /J ejr?Sl/srtj Qd . 

/S963 



TICKET 



VENDOR NUMBER 
INVOICE AMOUNT 
INVOICE NUMBER 



# 



VOUCHER NUMBER 



300 & 



945 r 



3.75-% £/SCO(JA/T JAt. 



DISTRIBUTION ACCOUNT NUMBER 


OCK 


AMOUNT 


OCK 


6/0 




33004 


/ 











































ACCOUNTING DISTRIBUTION TICKET 



0050 
0060 



0050 Distribution of dollar amounts directly to an Expense Distribution Ledger when the account 
number is stored in the table. (OCK 3 bypasses.) 

Option to override the automatic typing of Vendor Name on the Expense Distribution 
Ledger. OCK and Type and OCK or OCK 2 twice to bypass. 

0060 Error in distribution or invoice amount. (Invoice Amount is assumed to be incorrect in 
illustration. Should be 330.00.) 

Automatic Reversal of Invoice Amount via PK 1 1 . 

Zero Proof re test PK Key. 

Operator Option to select Vendor Ledger System. 

Automatic update of data to Vendor Ledger, with option to type additional reference on 
Vendor Ledger. 

Ability to select a PK to write an occasional check on Vendor System. 

% Discount option (Dollar, Percent, or Bypass available.) 
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0070 



ACCOUNTING DISTRIBUTION TICKET 

VENDOR NAME ui.&. d. 



VENDOR NUMBER 
INVOICE AMOUNT 
INVOICE NUMBER 



< 7%a^juJLns>Jl/A/M£ 



VOUCHER NUMBER 



7??/<23 



c^6~.00 



F# /23 



otf fox? ^/fter /Tjy/vsA/r 



DISTRIBUTION ACCOUNT NUMBER 


OCK 


AMOUNT 


OCK 


£/o 




c2s:aa 


/ 










Ps* ML 

































S.oo 
01 sc 



ACCOUNTING DISTRIBUTION TICKET 

Head up of new Voucher Check. 



0070 



Systems Forms Control - Automatic advancement of voucher check to apron, and over 
fold of pin feed journal. 

Operator option to type additional reference data on voucher apron. 
Ability to write an occasional check on Voucher Buildup system. 
Dollar Discount option. 
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ACCOUNTING DISTRIBUTION TICKET 



0080 



VENDOR NAME 
VENDOR NUMBER 
INVOICE AMOUNT 
INVOICE NUMBER 



VOUCHER NUMBER 



DISTRIBUTION ACCOUNT NUMBER 


OCK 


AMOUNT 


OCK 
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AUTOMATIC TOTALING 

Operator option to return to mainline routine if total data does not agree with prelist. 

Automatic totaling of summary data by account number. 

Automatic summary posting of totals. 

OTHER ROUTINES RESIDENT FROM DISK MEMORY 

Direct Pay System — Vendor Ledger or Voucher Check 
Check Writing Only - Vendor Ledger or Voucher Check 
Journal Entries — Detail and Summary Posting 

MISCELLANEOUS SYSTEM FEATURES 

In Run Continuation Voucher Routine. 

In Run Filled Sheet Routine for Expense Distribution or Vendor Ledgers. 

Automatic or Manual Check Number. 

Ability to Type two descriptive lines for Journal Entries. 

Full Reverse Entry Capability. 

Ability to Change Account Numbers. 
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BURROUGHS HALL OF PROGRAMS - PROGRAM PROFILE 

Descriptive Title of Main Application Filing Guide 5-00-L4311-03 

IAOOO MONTH END BALANCE TRANSFER 

AND REPORT WRITING Style of Machine L 4311-609 

Application Code 086 
Describe Type of Business 



General 



Date Installed 
Adjuncts pj? 5 



Other Comments 

HOME OFFICE STANDARD PACKAGE Special Features NONE 



2 1300 001 00 
Firmware I D 2 1070 019 00 CDV Add On 



Descriptive Title of Application Programs in this Installation. Major Application First. No. of Instructions. Activity & Volume. 



Month End Balance Transfer and Report Writing 582 ^5-60 Seconds 

Per Detailed Line 
12-15 Seconds 
Per Total 



A. Significant advantages to the user. 

Enables forwarding of year-to-date balances to ledger card with a great 

degree of accuracy and enables automatic report preparation with no 

loss of speed in the balance forward operation due to keyboard buffering, 

which allows the operator to list data for the next account while the 

Series L prints the report line. 



B. Description of the significant features of the System 

General Ledger Year-to-Date balances are updated by listing the Current 
Month Balance and the Previous Month Year-to-Date balance. The account's 
number is listed on the audit journal and subsequently prints on the 
ledger card as visual proof that the correct ledger card has been inserted 
The updated year-to-date balance will print along with a date which prints 
in red for visual reference. 

Complete, descriptive report writing capability is possible by adding 
the typing of the account name on the audit journal. After the ledger has 
been inserted, updated, and removed, the Series L automatically prints 
from memory the already audited data on the report form ... in the 
correct format. While this is happening, almost all data for the next 
account number may be entered through the keyboard buffer. 

Separate printing formats for a Financial Position Statement and a Profit 
and Loss Statement are provided based on the operator's selection of 
the program type at the start of the program. Automatic Color Reversal 
is provided for the liability side of the Financial Position Statement. 
This provides black printing for balances which are normally red credits. 
On the Profit and Loss Statement, the system is programed to print the 
red sales figures in black until a level 2 or 3 total is taken. (A PK 
has been provided which allows the operator to re-initiate the color 

Printed in U. S. America 3-71 1 053.1-2-1 



reversal feature if the report requires it.) In the sample Profit ana 

Loss Statement, all the Other income accounts carry a normal credit 

balance, but we desired black printing on the report and used PK 22 to set 
up the reversal. 

If headings are required for groups of accounts, PK 19 enables typing of 
the required heading which will print 2/10* to the left of the account 
name column. The system assumes that after a total is taken the operator 
will use PK 19 to type a group header or put in blank spaces. 



C. Description of the significant characteristics erf the program. 
Account Balances are checked by check digit verification. Any of the 
listed or typed data may be relisted by using a series of PK ' s which 
enables return to any segment of the listing sequence for relisting of 
da ta . 

All balances are accumulated into five levels of totals under program 
control. Five PK ' s are enabled for taking any of these totals instead 
of listing another account. The level selected will clear its level 
AND ALL LEVELS BELOW. Again, while the Series L prints the totals 
selected, the operator continues with listing because of the buffered 
keyboard. 

Once the fifth level total is taken, the system will print the totals, 
print summary totals on the audit tape, and return to ready mode for 
selection of the next program. 



D. The following additional material is available fromSSSSKXKrSgraSKX Literature Distribution: 

Document No. Description 

1053121A System Definition 

1053121B Compiler Listing 

1053121C Object Program 

1053121D Source Program 

1051513 General Ledger Demonstrating Form 

1051562 Accounts Payable Systems Program Profile 



MONTH END BALANCE TRANSFER 

and 

REPORT WRITING 
with 

Burroughs 

SERIES L 4000 



SYSTEM DEFINITION 



RELATED MATERIAL 

LITERATURE IDENTIFICATION NO. 

Symbolic Listing 1053121 B 

DEMONSTRATING FORM 

General Ledger 1051513 

PROGRAMS 

Object Program 1053121 C 

Source Program 1053121 D 



Burroughs 



© 
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ACCUMULATE 
DATA FDR 
P & L 
REPORT 



FIHAHCIAL 

STATEMENT 

LIABILITIES 

Reverse 

Cnlnr, 



ACCUMULATE 
DATS FOR 
FINANCIAL 
STATEMENT 



FINANCIAL POSITION STATEMENT 




PORT 
TYPE 



P & L 



PRINT 
MONTH 
BALANCE 



PRINT 
MONTH 

BALANCE 



OCK 2 




"TICK Used 



PRINT 
PERCENT 



PRINT 
' ACCOUNT 
NAME 




PRINT 
ACCOUNT 

NAME 




PRINT 

ACCOUNT 

KAM& 



PRINT 
PERCENT 



Print 

YTD 

Balance 
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~t PROCESSING 


*~ 


-f —OUTPUT «- 
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DATA DESCRIPTION 

OR 

OPERATION 


A ,-W 
L 1 U 
P 1 M 
H . E 
A R 
N 1 
U C 
M 1 (Nl 

I 1 
1 1 

c 1 
(A) 1 


FIELD DEFINITION 
INPUT 


INPUT SOURCE 

Keyboard (KB), Specify Media. 

Specify MB, OCK, PK, etc.. only 

if particular one required; 
Punched Card (PC); 
Edge Punched Card (EPC): 
Punched Tape (PTI; 
Striped Ledger (SLI, 

Specify Reader; 
Memory (Ml; Data Com Receive. (Rl 


PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 


P 
R 

1 
N 

T 


p 

u 

N 
C 

H 
[/) 


FIELD DEFINITION 
OUTPUT 


OUTPUT DETAIL 

Print: Specify Printer and Format 
Console ICP)„ Line Printer (LP); 

Punch: Specify Adjunct, Format, 
Special codes, etc.; 

Striped Ledger: 

Data Com Transmit. IT) 


I 

N 

s 

T 
R 
U 
C 
T 
1 


N 
S 


Fixed 


Variable 


Fixed 


Variable 


Size 


Min 


Max 


Norm 


Size 


Min 


Max 
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PKA 1 TO START. ALIGN 




























PAPER TO LINE 
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PK 20 CLEAR TOTALS 














RETURN TO SEQ. 2 






















6 P & L REPORT 














GO TO SEQ. 3 




















8 POSITION STMT - ASS 
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GO TO SEQ. 5 
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10 POSITION STMT - LIA 


3ILIT 
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LIST MONTH - SALES 


N 






9 






STORE FOR $> CALCULATION 
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LIST Y.T.D. SALES 
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STORE FOR <f, CALCULATION 
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HEADING ROUTINE 
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PRINT COMPANY NAME 


A 
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ADVANCE TO LINE 3 


X 
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PRINT REPORT TITLE 
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CP 




8 


PRINT " FOR THE PERIOD 












X 








21 




CP 






ING 


A 






21 




M 
















— 
































9 


PRINT DATE 


A 






20 




M 




















in 


PRINT COLUMN HEADINGS 


A 










M 


ADVANCE REPORT 3 LINES. 


RETURN 
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TO SCRATCH-PAD-LISTING 
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■ — 
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SALESMAN B 
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s 

E 
Q 
U 
E 
N 
C 
E 


DATA DESCRIPTION 

OR 

OPERATION 


a 

u 

M 

R 
1 

C 
IAI 


N 
U 
M 
E 

R 
1 

C 
(Nl 


FIELD DEFINITION 
INPUT 


INPUT SOURCE 

Keyboard (KB). Specify Media, 

Specify MB, OCK, PK, etc.. only 

if particular one required; 
Punched Card (PC); 
Edge Punched Card (EPC); 
Punched Tape |PT}; 
Striped Ledger ISO, 

Specify Reader; 
Memory (M); Data Com Receive. (R) 


PROCESSING REQUIREMENTS 

Accumulations: 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 


p 

R 
1 

N 
T 
W) 


p 

u 

N 
C 
H 
(•> 


FIELD DEFINITION 
OUTPUT 


OUTPUT DETAIL 
Print: Specify Printer and Format 
Console (CP)„ Line Printer ILPI: 

Punch: Specify Adjunct, Format, 
Special codes, etc.; 

Striped Ledaer: 

Data Com Transmit. IT) 


1 

N 
S 

T 
R 
U 
C 
T 
1 


N 
S 


Fixer 


Variable 


fixed 


Variable 


Size 


Min 


Max 


Norm 


Size 


Min 


Max 


Norm 




SCRATCH PAD LISTING 
















—■ 
















































LOC 


LIST MONTH BALANCE 


































AND CHECK DIGIT 


N 






8- 


L 


KB 


CHECK DIGIT VERIFY - IF OK, PRINT 


















OR 














AMOUNT. PROVIDE SEPARATE ROUTINE 


































FOR PLUS OR MINUS BALANCE AS 


































PER L^OOO ACCOUNTS PAYABLE PGM. 


































STORE IN TEMPORARY POT. 


X 








9 










OR 
















-■ 


-- 
















DEPRESS PK FOR TOTAL 






























LEVEL OR HEADER 


































PK 1 LEVEL 1 














BRANCH TO APPROPRIATE ROUTINE. 


































ON EACH ROUTINE HALT TO 




















3 LEVEL 2 














ALLOW TYPING OF TOTAL 


































DESCRIPTION ( SEE SEO. 105) 




















5 LEVEL 3 




































































7 LEVEL k 














NOTE: ON FINANCIAL STATEMENT, 


































PK 1 WILL NOT NORMALLY BE USED 




















9 LEVEL 5 














(IT COULD BE) AS OCK 1 WILL 


































CLEAR & PRINT 




















19 GROUP HEADER TYPING 














LEVEL 1 




















22 COLOR REVERSAL 














RESETS REVERSAL 
















— 






















-- 












.05 


TYPE TOTAL DESCRIPTION 


A 






31 




KB 


OCK 1 


X 






31 






.06 


DECISION 














OCK 1 TO PRINT TOTAL 


























PK TO RETYPE 
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Q 
U 
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N 
C 
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DATA DESCRIPTION 

OR 

OPERATION 


A "TJ 

L 1 U 
P 1 M 
H . E 
A R 
N 1 
U 1 C 
M 1 (N) 

R> 
1 1 

c 1 
IA) 1 


FIELD DEFINITION 
INPUT 


INPUT SOURCE 

Keyboard (KB), Specify Media, 

Specify MB, OCK, PK, etc., only 

if particular one required; 
Punched Card (PC); 
Edge Punched Card (EPC); 
Punched Tape (PT); 
Striped Ledger (SL), 

Specify Reader: 
Memory (M); Data Com Receive. (R) 


PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 


P 
R 
1 

N 
T 
(/) 


p 

u 

N 

c 

H 
IV) 


FIELD DEFINITION 
OUTPUT 


OUTPUT DETAIL 
Print: Specify Printer and Format 
Console (CP)„ Line Printer 1LPJ; 

Punch; Specify Adjunct, Format, 
Special codes, etc.; 

Striped Ledger: 

Data Com Transmit. IT) 


I 

N 
S 
T 
R 
U 
C 
T 
I 


N 
S 


= txed 


Variable 


| 


=ixec 


Variable 


Size 


Min ! Max 


Norm 


Size 


Min 


Max 


Norm 


11 


LIST PREVIOUS MONTH YEAR 
















X 










1 1 


— 




- 


z 


— - 


TO DATE BALANCE AND 












KB 






CHECK DIGIT 


N 






1 


■? 


CHECK DIGIT VERIFY - IF OK PRINT 


















AMOUNT. STORE IN TEMPORARY POT. 






— 


































OR 
















"- 














— 


































PK 11 TO LIST MONTH BALA 


<tce, 


SEJ3 


. 1 


00 








x: 


C 







6 
































11 


5 


LIST ACCOUNT NUMBER 


N 






6 


k 




STORE 


k 




__ 




PK 11 100 









_.__ 


----- 


















PK 13 HO 










_xx_.. 






31 






"- 


12 


D 


TYPE ACCOUNT DISCRIPTION 


A 






31 




KB 


STORE- OCK 1 ENDS TYPING OCK 2 
SPACES AND STORES SECOND LINE - 


— " 


— 
































OR 














OPEN HANDLER 
















PK 15 TO LIST A/C# 






























- — 




PK 13 TO LIST YTD 














— -PGM BRANCHES BACK TO ROUTINE 














BALANCE 
















_... 


















PK 11 TO LIST MONTH 






























BALANCE 
































































13 


D DECISION POSITION - 


S NO 


JO 


















--- 






































IF LINE OF DATA IS CORRE 


3Tj_ 
































INSERT LEDGER TO LAST 


















: 











POSTING LINE 














OCK 1 TO CONTINUE. 








OR 















OCK 2 OlNANCTAT, STATEMENT ONLY-) 






— 


— 


_PK 12 RETYPE 
PK 15 LIST AC# 
PK 13 YTD BALANCE 

PK 11 MONTH BALANCE 

PK k FILLED SHEET 












SPECTAT, PRTNT OR REPORT. 

LEDGER TO BE TNSERTEn 

















. . .. __.... 




- — 


-- 











— 
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1 NPUT — „ 


■*- PROCESSING ► 


"H~~ 












OUTPUT - * 


\ 


s 

e 

Q 

U 
E 
N 
C 

E 


DATA DESCRIPTION 

OR 

OPERATION 


A , N 
L 1 u 
P 1 M 
H | E 
A R 
N 1 
U C 
M 1 IN 

F 
1 1 

C 1 
(All 


FIELD DEFINITION 
INPUT 


INPUT SOURCE 

Keyboard (KB), Specify Media, 

Specify MB, OCK, PK, etc., only 

if particular one required; 
Punched Card IPC); 
Edge Punched Card (EPC); 
Punched Tape (PTI; 
Striped Ledger (SU, 

Specify Reader; 
Memory (M); Data Com Receive. (R) 


PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 


p 

R 

1 

N 
T 

w 


p 

u 

N 
C 
H 
(•) 


FIELD DEFINITION 
OUTPUT 


OUTPUT DETAIL 

Print: Specify Printer and Format 

Console (CP)„ Line Printer (LP>; 
Punch: Specify Adjunct, Format. 

Special codes, etc.; 

Striped Ledger: 

Data Com Transmit. IT) 


I 

i 

N 
S 
T 
R 
U 
C 
T 
1 


N 


Fixed 




Variable 


Fixed Variable 


Size 




Max 


Norn 


Size 


Min 


Max 


Norrr 


1 





TYPE DATE 


A 






19 




M 


IN RED 


X 
X 


■■- 







19 






1 


iO 


._. 












M 


12 


— 




PRINT YEAR TO DATE 


N 






12 


MONTH TO DATE & PREVIOUS 






BALANCE 














YEAR TO DATE 








1. 


• 5 PRINT ACCOUNT NO. 


N 






6 


4 


M 


OPEN HANDLER 


X 




.._... 




6 


4 






u 





REMOVE LEDGER 














NO HALT IN PROGRAM 






























GRAB LEDGER FAST 










































-- 


_.. 


----- 






















GO TO REPORT PRINT LINE 




T* 








1~ 



















PERFORM STORE DATA 






— 












— ■ 


----- 














REPORT PRINT LINE - P & 


L 






NOTE: THE 1ST BALANCES HANDLED UP TO THE FIRST OF A NY 


;VE. OP TOTALS ARE CRF.nTT Billvrpe 


. . 
















PRINT THESE BLACK 


(DEBIT BALANCES RED) UNTIL THE 1ST 


P A 


NY 


JLE 


i'FT 




— 
















NORMAL BLACK/RED ''HINT 










21 





PRINT MONTH BALANCE 


N 






9 




M 




X 






2 


9 






25 





PRINT io OF MONTH-SALES 


N 






4 




M 




X 






2 


4 






- 


2' 





PRINT ACCOUNT - DESCRIPT 


ION A 






31 




M 








31 






2' 





PRINT <b OF Y.T.D. - SALE 


S N 






4 




M 




_x 

X 


— 




2 


4 






— 


2! 





PRINT YEAR-TO-DATE 


N 






1 1 




M 






2 


1 1 




■ 




BALANCE 














IF LAST LINE, PERFORM HFADTNG 
































ROUTINE , ELSE RETURN TO SCRATCH- 


































PAD-LISTING 














— 




















- ' 




























IF A LEVEL OF TOTALS HAS JUST 












■ 


— 


















BEEN TAKEN, SPACE LEFT 2 LINES - 
PERFORM GROUP HEADER ROUTINE 


- 




- 










































,_.... ... 


...iSEa, 520). IF LEVEL 5. . 











_ 














ADVANCE TO LINE 66, RETURN TO 








- 










-- 





SEQ.. 2 


.... 


— 


■— 




■— - ■ 












" 






__. 






































-■ - -- - 
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Q 
U 
E 
N 
C 
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DATA DESCRIPTION 

OR 

OPERATION 


A 'N 
L I U 
P 1 M 
H . E 
A R 
N 1 
U 1 C 
M 1 IN) 

!' 
i i 
c i 

(A) 1 


FIELD DEFINI1 
INPUT 


ION 
e 


INPUT SOURCE 

Keyboard* KB), Specify Media, 

Specify MB, OCK, PK, etc., only 

if particular one required; 
Punched Card (PC); 
Edge Punched Card (EPC): 
Punched Tape (PT); 
Striped Ledger (SL), 

Specify Reader; 
Memory (M); Data Com Receive. (Rl 


PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 


P 

R 

N 
T 
1/) 


p 

u 

N 
C 

H 
(/) 


FIELD DE 
OUT 


FINITION 
PUT 

ariable 


OUTPUT DETAIL 

Print: Specify Printer and Format 

Console (CP)„ Line Printer (LP); 
Punch: Specify Adjunct, Format, 

Special codes, etc.; 
Striped Ledger: 
Data Com Transmit. (T) 


1 

N 
S 

T 
R 
U 
C 
T 
1 


N 
S 


? ixed 


Variab 


F ixed 


V 


Size 


Min 


Max 


Norm 


Size 


Min 


Max Norm 


21 


REPORT LTNE - FINANCIAL 


STATE 


men 


T 










X 






2 


9 


— 




... 


- - - -- 




— 


.__. 




.... 


-■- - • ■- 












5 PRINT MONTH BALANCE 


N 




2 


9 




M 








- 


2" 




















... 













PRINT ACCOUNT TTTLE 


A 






31 




M 




X 





31 
































2" 


5 PRINT Y.T.D. BALANCE IN 


N 






11 




M 


ONLY IF OCK 2 WAS USED AT 


X 




.__ 


2 

2 


1 1 








DETAIL COLUMN 














SEQUENCE 130 DECISION POSITION 






















LAST LINE TEST OR RETURN TO 






■■- 













.._.. 






SCRATCH PAD. 
















1 1 






— 


28 


9 PRINT LEVEL 1 BALANCE 


N 






1 1 




M 


IF OCK 1 USED AT DECISION 
POSITION 130, THE LEVEL 1 


X 


-- 














































TOTAL WILL BE PRINTED HERE. IF 




























PRECEDING LINES HAD BEEN PRO- 


-- 






























CESSED UNDER OCK 2. THE KEYBOARD 


.... 




__... 
























AMOUNTS WILL PRINT f SEQUENCE 275) 


— - 


— ■■ 






















AND LEVEL 1 WILL PRINT HERE. 
























LAST LINE TEST OR RETURN TO 


: 


I 
























SCRATCH PAD 


— 










































LEVEL 2-3-4-5 WILL PRTNT AT 












— 


... . ... ._. ._. 














THE SEQUENCE 280 POSITION 


.._. 






























----- 
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DATA DESCRIPTION 

OR 

OPERATION 



.illiEE -DATA, 



POSIT IUN-STMT -ASSETS . 



POSITION-STMT-L IABI LITIB 



P & L STATEMENT _ 



P & L STATEffENT 



EXAMPLE A. 



100.00 CR 



EXAMPLE B. 



100.00 CR 



EXAMPLE C. 



EXAMPLE D. 



Fixed Variable 



FIELD DEFINITION 
INPUT 



Mir* IMax Norm 



INPUT SOURCE 

Keyboard (KB). Specify Media. 

Specify MB, OCK, PK. etc., only 

if particular one required; 
Punched Card (PCI; 
Edge Punched Card (EPCI; 
Punched Tape IPT}; 
Striped Ledger iSL), 

Specify Reader: 
Memory IM); Data Com Receive. (R) 



DETERMINE WHICH RI 
.. AND.. STORE ..DATA .. AC 
_FLH§.. .FIGURES, ILLU 



APPLY TO CREDIT FI GURES 



ADD TO L EVEL 1. A] 'D TO LEVEL 2 ■ ETC 



REVERSE AMOUNT . _ D TO ALT, LE VELS 



ADD.. TP. LEVEL _l-2_ 
3, k, and 5. 



■ PROCESSING 



PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 



PORT_IS BEIN_G_.PRgCE.SSED... 
QRD1NG TO FOLLOWING CHART - 
TRATED - MATH TO 



ALGEBRAICALLY 



ALWAY S BL ACK 



+ ALWAY S RE D 



BEFORE FTRS T LEVEL 2 OR 3 . TOTAL„ 



AFTER FIRST LEVEL 2 OR 3 TOTAL 



REV ERSE AMOUNT , A] _ TO LEVEL 1 -LEVEL 2. ETC. 



. REVERSE A MOUNT, ADD TO LEVEL 



N i C 

T | H 



FIELD DEFINITION 
OUTPUT 



Fixed 
Size 



APPLICATION 



L 4000 MONTH END BALANCE TRANSFER 
& REPORT WRITING 



L3.. T -a 

B 



BLE-._ R 



-TOa 'AL 



Min I Max iNorrn 



.R 



OUTPUT DETAIL 

Print: Specify Printer and Format 
Console ICP) „ Line Printer (LP); 

Punch: Specify Adjunct, Format, 
Special codes, etc.; 

Striped Ledger: 

Data Com Transmit. {T) 



Printed in U, S. America 
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in out 
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E 
Q 
U 
E 

c N 
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DATA DESCRIPTION 

OR 

OPERATION 


L 1 u 
P 1 M 

H . E 

A R 

N 1 

u c 

M 1 IN) 

R 

1 1 
C I 
IA) 1 


FIEl 
Fixed 


D DEFINITION 
INPUT 

Variable 


INPUT SOURCE 

Keyboard (KB), Specify Media, 

Specify MB, OCK, PK, etc., only 

if particular one required; 
Punched Card (PC); 
Edge Punched Card (EPC); 
Punched Tape IPT); 
Striped Ledger (SL>, 

Specify Reader; 
Memory (M); Data Com Receive. W 


PROCESSING REQUIREMENTS 

Accumulations; 

Formulas; 

Extensions; 

Store for later use; 

Calculations; 

Formatting for output. 


p 

R 

1 

N 
T 
1/) 


p 

U 
N 

c 

H 
l/l 


FIELD DEFINITION 
OUTPUT 

= ixed Variable 


OUTPUT DETAIL 
Print: Specify Printer and Format 
Console (CPL Line Primer (LP); 

Punch: Specify Adjunct, Format, 
Special Codes, etc.; 

Striped Ledger: 

Data Com Transmit. (T) 


i 

N 
S 
T 
R 
U 
C 
T 
1 


N 
S 


Size 


Min 


Max iNorm 


Size 


Min (Max 


Norm 


51 


LEVEL ONE TOTALS 














MOVE LEVEL TOTALS TO PRINT LINE 
POT, CLEAR LEVEL TOTALS, PERFORM 
TOTALS ROUTINE P & L - SEQ. 210 
FOR P & L STMT, SEQ. 265 












..... 




... 


- - 




- 


.__ 




-- 


- 






















— 
















FINANCIAL STMT. 




JIL 


■- 


























L 1 










— 


51 


LEVEL 2,3,4 














SAME OPERATION AS ABOVE, EACH LEVE 


L (LEAR 


rxs 


LEVEL 


















AND EACH LEVEL BELOW 










- 






-• 
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5 LEVEL 5 














SAME AS 510, AT END OF PRINT GO 






















TO FINAL TOTALS (540) 








52 


GROUP HEADER 










KB 












52 


GROUP HEADER 


A 






-- 





ON SCRATCH PAD, TYPE GROUP HEADEP 




























DESCRIPTION & STORE OCK 1 


X 


.._. 














53 


PRINT GROUP HEADER IN 


M 






31 






RETURN TO SCRATCH PAD LISTING 







31 










APPRORIATE POSITION 














SEQ 100 
















~- 




































FINAL TOTALS 
















X 














— 


5 'J 


PRINT TOTAL PREVIOUS 


N 






1 1 




M 










1 1 








MONTH BALANCES 
















-- 


— 





— 
































5*11 PRINT CURRENT MONTH 


N 






1 1 




M 




X 






1 1 






— 




BALANCES 
















































X 















51 


2 PRINT Y.T.D. BALANCE 


N 






1 1 




M 


RETURN TO READY MODE 







1 1 
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L 4000 MONTH END BALANCE TRANSFER 
& REPORT WRITING 



1.5 



2.5 



CUSTOMER . 
EQUIPMENT _ 
SALESMAN 
3 3.5 4 



.APPLICATION. 
BRANCH _ 
DATE 



O 



PROGRAM DEFINITION WORKSHEET 



4.5 



5.5 



6.5 



7.5 



I I I I I I I I I I I I II I I . I I I I I 1 1 I I I I I I I I I II I I I I I I I I : I I ' I I I I I I I I I I I I I I i I i ■ I .— J. L I i I ll I I I I I I | | 



8.5 

L 



9.5 



10 



10.5 



11.5 



13.5 



14 



14.5 



15.6 



16 16.5 



17 



H HI I' l l l l .i l I II ll H ill 



18.5 19 19.5 20 20.5 21 21.5 22 22.5 23 23.5 24 24.5 25 25.5 26 

| 



I I I I I I . I IN 1 1 



—A BC MANUFACTURING- 
FINANCIAL POSITION STATEMENT 
FOR THE PERIOD ENDING 
—APRIL 30, 197- 



MONTH 
CHANGE 



1,000.00 
200.00 



ACCOUNT NAME 



CURRENT LIABILITIES 
ACCOUNTS PAYABLE 
30 DAY LOAN 



YR TO DATE 
DETAIL BALANCE 



a s5^' 



Level 1 is zero because the 
Y.T.D. Balance figure comes " 
from Level 1 Total 



Group Heading PK used 
without any typing 



Group Header not used 
here, giving poor spacing 



10,000.00 
1,000.00 



Wk 



.00 

100.00 
200.00 


LEVEL 1 

GROUP HEADER 

ACCOUNT NAME OCK 2 DETAIL 
TWO LINES OF DESCRIPTION 
ACCOUNT NAME - OCK 
1 FROM DECISION 


1,500.00 
500.00 


LEVEL 2 TOTAL 
ACCOUNT NAME 


500.00 


LEVEL 2 


2,000.00 
.00- 


LEVEL 3 
ACCOUNT NAME 


.00 


LEVEL 3 


2,000.00 
500.00- 

500.00- 


LEVEL l* 

PLUS ENTRY ON LIABILITY 

PROGRAM SUBTRACTS 

OCK 2 USED FROM DECISION 

POSITION - LEVEL 1 NEXT 


1,000.00- 


LEVEL 1 


1 ,000.00- 


LEVEL 4 



.00 

1,000.00 

1,000.00 2,000.00 
13,000.00 

1,150.00 
1,150.00 



OCK 2 used here 



OCK 1 now gives detail and 
Level 1 Totals 



14,150.00 
5,850.00 



5,850.00 
20,000.00 



5,000.00- 
5,000.00- 



10,000.00- 
10,000.00- 



1 ,000.00 



LEVEL 5 TOTAL LIABILITIES 
NET WORTH 



10,000.00 



Level 1 works here because 
OCK 1 has not yet been used 






1.5 



2.5 3 3.5 4 4.5 



5.5 



7.5 8 8.5 



I 



TOTALS CLEARED 

—APRIL 30, 197- 

A BC MANUFACTURING- 



1,000.00- 
200.00- 



100.00- 
200.00- 

500.00- 

.00 

500.00 
500.00 



J.000.00- 400 
800.00- 401 



900.00- 402 

800.00- 403 

650.00- 404 

5,850.00- 405 

4,500.00 654 

4,500.00 655 



CURRENT ASSETS 

CURRENT LIABILITIES 

ACCOUNTS PAYABLE 

30 DAY LOAN 

LEVEL 1 

GROUP HEADER 

ACCOUNT NAME OCK 2 DETAIL 

TWO LINES OF DESCRIPTION 

ACCOUNT NAME - OCK 

1 FROM DECISION 

LEVEL 2 TOTAL 

ACCOUNT NAME 

LEVEL 2 

LEVEL 3 

ACCOUNT NAME 

LEVEL 3 

LEVEL 4 

PLUS ENTRY ON LIABILITY 

PROGRAM SUBTRACTS 

OCK 2 USED FROM DECISION 

POSITION - LEVEL 1 NEXT 

LEVEL 1 

LEVEL 4 

LEVEL 5 TOTAL LIABILITIES 

NET WORTH 



1,000.00- 

9,000.00- 

10,000.00- 



3£ 



•^ 



K 



ACCOUNT NAMEXXXXXXXXXXXXXXXXXXX 
X-X-X-X-X-X-X-X-X-X-X-X-X-X-X-X 



1234.56 



Account 
Number 



REFERENC tt 



Month 
Balance 



Year-to-dat' 
Balance 



123^.56 



SEPTEMBER 31, 197-XX 10,000,000-00-0 



TTTjTt^t th 



1 1 1 i i i r 



rTTTTTrni ^nfjffi 
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-ABC MANUFACTURIN 
PROFIT AND LOSS STATEMENT 
FOR THE PERIOD ENDING 
—APRIL 30, 1971 



O 



PROGRAM DEFINITION WORKSHEET 
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INPUT 






OUTPUT 


ON 


ALPHA 


READY 


INVALID 
CODE 


READER 
COND. 


PUNCH 
OFF 


MEDIA 


ECHO 
CHECK 


TAPE 
SUPPLY 



START 

PK 1 


AMP 


UTILITY 

PK 3 


PK 4 


PK 5 


PK 6 


PK 7 


PK 8 


PK 9 


PK 10 


PK 1 1 


PK 12 


PK 13 


LEVEL 




LEVEL 




LEVEL 


P & L 


LEVEL 


PIN. 


LEVEL 


FIN, 


MONTH 




PREV. 


ONE 




TWO 




THREE 


STMT. 


FOUR 


STMT,, 


FIVE 


STMT. 


BAL. 




MONTH 


TOTAL 




TOTAL 




TOTAL 




TOTAL 


ASSETS 


. TOTAL 


LIAB. 






YTD 



pk 14 


pk 15 


PK 16 


PK 17 


PK 18 


PK 19 


PK 20 


PK 21 


PK 22 


PK 23 


PK 2k 








ACC'T 
NO. 




ACC'T 

NAME 




GROUP 
HDR 


CLEAR 
TOTALS 




RESET 
COLOR 






ERROR 


NUM. 


















REVERSAL 
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Check Digit Verification and Computation 

The Check Digit Compute and Verify feature of this system requires firmware 
add-on tape 2-1070-019-00 which is used in conjunction with 2-1300-001-00 
firmware. This firmware add-on utilizes words 480 to 511 and 891 and 893. 

General Concept 

This program is designed for use with the L 4000 ACCOUNTS PAYABLE 
SYSTEMS program (Program Profile 1051562). It combines a Month End Trial 
Balance and Balance Transfer Routine with Report Writing, making maximum 
use of the buffered keyboard feature of the Series L. 

General Ledger Year -to -Date balances are updated by listing the Current 
Month Balance and the Previous Month Year -to -Date balance. The account's 
number is listed on the audit journal and subsequently prints on the ledger 
card as visual proof that the correct ledger card has been inserted. The 
updated year-to-date balance will print along with the date which prints in red 
for visual reference. 

Account balances are proved by check digit verification. Any of the listed or 
typed data may be re-entered by using a series of PK's which will return to 
any segment of the listing sequence. 

Complete descriptive report writing capability is possible by adding the typing 
of the account name on the audit journal. After the ledger has been inserted, 
updated, and removed, the Series L automatically prints from memory the 
previously audited data on the report form ... in the correct format. While 
this is happening, almost all data for the next account number may be entered 
through the keyboard buffer. 

Balances are accumulated into five levels of totals under program control. 
Five PK's are enabled for taking any of these totals instead of listing another 
account. The level selected will clear its level AND ALL LEVELS BELOW. 
Again, while the Series L prints the totals selected, the operator continues 
with listing because of the buffered keyboard. 

Separate printing formats for a Financial Position Statement and a Profit and 
Loss Statement are provided; based on the operator's selection of the program 
type at the start of the program. Automatic Color Reversal is provided for 
the liability side of the Financial Position Statement. This provides black 
printing for balances which are normally red CR. On the Profit and Loss 
Statement, the system is programed to print the red sales figures in black 
until a level 2 or 3 total is taken. (A PK has been provided which allows the 
operator to re -initiate the color reversal feature if the report requires it. ) 



- 2 - 



In the sample Profit and Loss Statement, all the Other Income accounts carry 
a normal credit balance, but we desired black printing on the report and used 
PK 22 to set up the reversal. 

If the headings are required for groups of accounts, PK 19 enables typing of 
the required heading "which will print 2/ 10th to the left of the account name 
column. The system assumes that after a total is taken the operator will use 
PK 19 to type a group header or put in blank spaces. 

Once the fifth level total is taken the system will print the totals, print summary 
totals on the audit tape, and return to ready mode for selection of the next 
program. 

The following are memory modifications necessary to block CDC and CDV. 
If these modifications are used, you will have to list an extra zero where the 
check digit usually is listed 10000 = 10. 00. 



138 


246A 
0800 


A4A0 
A4A0 


F524 
F524 


F701 
F701 


142 


4152 
4152 


246A 
08p0 


A4C0 
A4C0 


F704 
F704 


158 


70A0 
70A0 


F82F 
F82F 


B2C2 
0800 


0210 
0210 


159 


F82F 
F82F 


B2C1 
0800 


0210 
0210 


F82C 
F82C 



15 0800 

1 1 0800 

7 0800 

1 1 0800 



00160»0* ^OPERATING INSTRUCTIONS 

001 700****************************************************************** 
,001800* 

001900* 

002000****************************************************************** 
• 002100* INITIALIZE 

002200****************************************************************** 

002300* 1, ALIGN FORM TO LINE 1. 

002400* STYLE 3 FRONT GUIDE LEFT AT SCALE 003 
iO02500* STYLE 3 FRONT GUIOE RIGHT AT SCALE OSS 

002600* STYLE 1 FRONT GUIDE LEFT AT SCALE 156 

002700* STYLE 1 FRONT GUIDE RIGHT AT SCALE 256 

002800* LOWER PRESSURE ROLLS ENGAGED 

002900* 2, DEPRESS PK1 TO START*— THE FOLLOWING PKlS ARE LIT 

003000* PK 6 - P/L STATEMENT 

003100* PK 8 - FINANCIAL STATEMENT — ASSETS 

003200* PK 10 - FINANCIAL STATEMENT--LI ABIL ITIES 

003300* PK 20 - CLEAR TOTALS 

003400****************************************************************** 

003500* P/L STATEMENT 

003600****************************************************************** 

003700* 1, LIST MONTH SALES. OCK 1, 

003800* 2, LIST YEAR TO DATE SALES, OCK 1, 

003900* 3, TYPE DATE. OCK 1, 

004000* 4. TYPE COMPANY NAME. OCK l f 

004100* 5. PROCEED WITH "OATA ENTRY" BELOW, 

004200****************************************************************** 

004300* FINANCIAL POSITION STATEMENT 

004400****************************************************************** 

004500* 1, TYPE DATE* OCK 1, 

OOUOO* 2, TYPE COMPANY NAME, OCK !, 

004700* 3. PROCEED WITH "DATA ENTRY" BELOW, 

004800******** ********************** **************#**##*•*#♦*#**♦*#***** 

004900* DATA ENTRY 

005000****************************************************************** 



005100* 
005200* 
005300* 
005400* 
005500* 
005600* 
005700* 
005800* 
005900* 
006000* 
006100* 
006200* 
006300* 
006400* 
006500* 
006600* 
006700* 
006800* 
006900* 
007000* 
007100* 
007200* 
007300* 
007400* 
007500* 
007600* 
©07700* 
007600* 
007900* 
006000* 
006100* 
00S200* 
008300* 
008*00* 
008500* 



THE FOLLOWING PKlS ARE ENABLED 
PK 1 - PRI^IT LEVEL*! TOTALS 
PK 3 - ptflNT LEVEL 2 TOTALS 
PK 5 - PRINT LEVEL 3 TOTALS 
PK 7 - PRINT LEVEL 4 TOTALS 
PK 9 - PRINT LEVEL 5 TOTALS 
PK 19 • TYPE GROUP HEADER 
PK 22 - RESTART LEVEL 2,3 COLOR REVERSAL 

1, EITHER DEPRESS THE APPROPRIATE PK OR 

LIST MONTH BALANCE AND CHECK DIGIT WITH OCK 1. 
— IF CHECK DIGIT ERROR* ALARM SOUNDS, RELIST" 

2, EITHER LIST PREVIOUS MONTH YTD BALANCE WITH OCK 1 OR 
DEPRESS PK 11 TO RETURN TO STEP 1 ABOVE. 

--IF CHECK DIGIT ERROR, ALARM SOUNDS, RELIST — 

3, LIST ACCOUNT NUMBER AS 9999,99 WITH OCK 1 OR 
DEPRESS PK 11 TO RETURN Tfl STEP 1 ABOVE OR 
DEPRESS PK 13 TO RETURN TO STEP 2 ABOVE, 

4, TYPE ACCOUNT TITLE WITH OCK 1 FOR SINGLE LINE OR 
OCK 2 FOR SECOND LINE OR 

DEPRESS PK 11 TO RETURN TO STEP 1 ABOVE OR 
DEPRESS PK 13 TO RETURN TO STEP 2 ABOVE OR 
DEPRESS PK 15 TO RETURN TO STEP 3 ABOVE OR 
DEPRESS PK 17 TO RETYPE FIRST LINE, 
DECISION POSITION 

5, THE FOLLOWING OPTIONS ARE AVAILABLE 

INSERT LEDGER AND DEPRESS OCK 1-THIS CAUSES LEVEL 1 
TOTALS TO PRINT IF FINANCIAL STATEMENT IS ACTIVE, 

INSERT LEDGER ANO DEPRESS OCK 2-THIS CAUSES ONLY OET-AIL 
TO PRINT IF FINANCIAL STATEMENT IS ACTIVE 

—OCK 1 AND OCK 2 HAVE NO DIFFERENTIAL EFFECT IF P/L 
STATEMENT IS ACTIVE — 

PK 4 - TO HEAD UP A FILLED LEDGER SEE "FILLED SHEET" 

PK 11 - RETURN TO STEP 1 ABOVE 

PK 13 • RETURN TO STEP 2 ABOVE 

PK 15 - RETURN TO STEP 3 ABOVE 



.008700* 
0,08400* 



♦PJT 17 - RTTURN tj STEP 4 ABOWl. 
6. WREN PRINTING ON STATEMENT IS COMPLETED* RETURN TO 
'STEP 1 f|?OVE. HOWEVER* IE LEVEL 5 TOTALS HAVE BEEN 



? 



0ify&)'cP* 



V 



009400* 

|^V? *00* 



TAKEN* TrfE FINAL TOTALS WILL PRINT ANO SYSTEM 
RETURNS T3 READY MODE. 

c o v i o o * rr* ************************************************************** 

0^9200* LEVEL TOTALS 

00 9 SCO ****************************************************************** 
BEFORE TOTALS PRINT ON THE STATEMENTS* THE SYSTEM WILL 
HALT FOR TYPING A DESCRIPTION, USE OCK 1 FOR SINGLE LINE 

0C9t>00* AND OCK 2 FOR AN ADDITIONAL LINE OF DESCRIPTION. 

009700* AFTER EITHER ENTRY* USE OCK 4 TO RETYPE. 

009800****************************************************************** 

009900* TYPE GROUP HEADER 

010000****************************************************************** 

010100* TYPE GROUP HEADER WITH OCK 1 AND RETURN TO "DATA ENTRY". 

01020^**-**************************************************************** 

010300* FILLED SHEET 

010400****************************************************************** 

010500* LIST ACCOUNT NUMBER WITH OCK 1 AND RETURN TO STEP 4 OF 

010600* "DATA ENTRY", 

010700/ 



